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Editorial 




Am Anfang... 



blem, wis brings 
en und wichtigen 
igeboten wuiden, 
nputer unter. Und 




Auf Ihr spezielles.. 



x\ finds. Die Daraen meld 
; detr: Thema Computer nc 
■■■veriig zu Wort, obwohl . 



Sprachgenie 

i Th^rna Mitreden fallt mir 
an, dafl es neben Basic, Pascal 
■otfh miitlerweile auch Logo 
3*— letzteres lieferbar ab An- 
S5 fur knapp 100 Mark — fur 
jpectrum gibt. Er kann also 
vidsprachig mitreden. 
//eigen muB ich leider zum 



lames 1-kUch.bv so eriolgreiche Pro- 
gramme wie "Chess the Turk« und 
»Mss:er Tocl};"« : abri2iert. Da kann 
rna n nur gespannt auf die angekun- 

Waiten muSren die Spectmm- 
Benutzer auch rach! lange auf ein 
funktionrerendes Floppy-Disk-Sy- 
stern. Seit August isi ernes auf dem 
Markt, und wenere werden auch 
nach unseren Informationen eben- 
falls noch vor Weihnachten zu kau- 
fen sein. Darunter auch ein 3-Zoll- 
Laufwerk, welches van der GroBe 
her wohl am ehesten zum Spectrum 
paBt. 

ZX81 am Ende? 



it vielen Produktbe- i.m ■ ■ i ■. . ■ 1 1 1 ■ h.ossen hat, Teile 

. Wir hofferi, daft es liue:- Proymmr-piilottc fur den hie- 

und freuen uns auf sigen Markt zu iibersetaen. Immer- 

Zurn Wohle! n.n hn: dio Oxi'irrd Co:up Liter Pubirs- 

Pauly, Chefredakteur) nine? :nit i:;rem Chsfprogrammierer 



Tips und Informationen be:m Lesen 
unseres oder besser gesagt Ihres 
Sonderheftes, 



; Marred -D. Koamq. Peaakteui'j 
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Hintergrflndiges sus der 


8 


Derschone Koreaner 

Eiae SW-MiKiilorl'uvriilin stollt 

sich vor 
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Mil Nadcl und Faden 
r>idfr'.t3ch:tk fur Ei-vei/biLi- 
Sdialtungen 


15 


!v* ■ l '.-. '■■(:- <-. s f >? ■ ch o i" in Massen 
Weiche Spcjicaja-modiei i gibl 
es fur Sine! air-Computer? 
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Hexloader 

Hexomi fiii Maschinencode- 

Listiv:qs 
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Kampaiibikiat 
Pi/o'iLiummaaprKiriq an 
andere Basic-Diatekte 
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Die Sal lensyslema und ihie 
Urnvrandiung 
Mathe-Grundkurs fiir 
ProcrsTinnsrer 


133 


ProgTarnniierei) in Basic 
Eirie proaramrnierte Unter- 
1 weisung 


148 


Buchei fiir Sinclair-Fans 
Cmi^hlfeJitswene Lekllire r ur 
| Lemwillige 
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Spectrum 

Hardware 

Ein RGB-Monitor 

Viol fjTS Ai.ne nichts furs 

Ohr 
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Co niro nics-In io rf a ce 


16 


Mini-Pori 

Cinfacr.e Sc!V. : i!lij-L;;'.i:i-;:- : 7 't 


20 


Soft-Schalter 

S-hi-itcn ar: Ba=ic-Bsfelile:i 


23 


Joy 31 

Buslelauleilung fur ein 
lovsack-Laterface 
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Notbremse 

Notri'jSQaiig fir Endios- 
schieiien 



Zum hesseien \ferstandnis 



In/OUT 

Kommumkation mit der 
Peripherie 

Software -Tests 

Zum Abheben 
Flugsirnubloren Fur den 
Spectrum 



Ines 

Mehr als HIM Text- 

veraibeitung 
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Tasword 2 
Textverarbeitung m 
Spectrum 


,*» 
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Mono 

Erne viel.seiti.ge 
Maschinencode- 
Programmi erhilfe 
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Maine Its bate n Sp.;e!eiel€ 
Eine nichi representative 
>}': ■■: v-HiUiole 



Autostart 
Programmstart o 
"Anschiebsn* 




Sinclair 

Fur Uberraschungen ist Sir Give Sinclair s 
Anfang 1980 immer gut. Sein neuester 
Streich ist der Sinclair QL, der im- 
merhin nach gut einem halben 
Jahr Werbung bereits in be- 
grenzten Stuckzahlen erhaltlich 
ist (in England) und ab Ende 
Oktober auch in der deut- 
schen Version vorliegen 
soil. IMoch uberraschen- 
der ist die geanderte 
Absatzstrategie von 
Sinclair. 




Sinclair 




Juni will Sinclair 


n Frankfurt em 


= Niederlassung griinden. Sie soil unter 


andere 


mdie 


Aktivitaten des 


:; f : i : twj ho !■ l C e : ie r.j ! i mporte 


uis in Ottc- 




, fiirijc- 


n SGhumpich, u 


nlerstiilzen. Weiterekoniiue 






.119.1 




r. Beisciel im Herbst in Pa 




^ 


V 


seine Produkte 


r sietit in Europa qroBe A 
und rechnet 1984 mit dom 
lllion Computer. Eme ande 
reilich so: Nach can Aus- 
em amerikansichen Marki 
noch die Fluent in den 
ntaien Markt. da der Arrfb 


leg von Ti- 

bleibl Sin 
iuropiiis;di- 


^r . 


/ 




Vc-'fri-bsnetzes in den 




V J 




auBerhalb der Reichweite von S 




v 




D 


urch den ab He ! 1 e 
U der Absatz 1985 mehr als 
verden. fils Anwendei ka 
hoffen, dafi Sinclair nun e 

zur Halfte emhalten 


r "n7n QL 

dlich seine 
wird. Man 



\> 




clarr ul > . i „, , I u „ i 

den Vbnncb ,, HMw.,-,:- 

und tritt dami; din Nachfolqo 

dc- rie> ; iio:.o^ in W.cr, an 

Inzwischci' I'.M :-.i'.-;ii Si;;c:.aiK 

»Botecriarier« in Bad Hom- 

hu>gerablie>J und die Arbe;: 

aufgenommen. SincLriirs »Hn 

norarkonsul« Schumpich ist 

damii fakiiach cine Koukui- 

renz entstanden. Dafur trat 

^^* er in neue Markle (Owor 

W ^^^^^L rcich) ein und hat seine An- 

¥ ^^H ^^k gebotspalette urn einige 

^^L dJxlr.-S-nc.au Produktee er- 

i ^^M HL weitert. Die eisie Nachricht 

■■ ^^^^^ auch dr;d Ilcir.bjra kr.m -un 

am "^^^ 1. August: Sinclair Research 

fjf M ^J weitet Fertigungskapazitat ans 

jfif W ^g Bnd H t;;ri 

jMta^_ ^W jujI kjd4 ■ ■ Sinclair Research, 

^^^B^HSr Cambridge, pianl eine drastische 

^^^W^ Eihohimq der Fertigungskapazitat 

ihrer Produkle. Von- Home Compute: 
ZX Specxiim sollen bis Ernie 1984 
niol-jj a;,-; m)Q0Q bmbeilen im Monat 
heigestellt werden. Die monaffidhe Per 
tigtrng des neuen Sindair Personal Com- 
puters OL vdrd a a: iOOOO Stiick und din 
Fbrtiguny des Tasohon:'er:iseh.gera!es an: 
monatlich 20000 Cir.ricilor, ; : :ihdht. Die Produk- 
ionsmengen wurden drastisch heraufgesetzt, 
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Sinclair 



!i(.l ii,: !: ,':o:L. 



i?-;-, '\-,-i 
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Sinclair: Verstarkte Weifae- und 
Verkanfskampagne 

Bad Homburg. 13. August 1984 - 



Personal Computer Sinclair QL En- 
de Oktober erhaltlich 

Bad Homburg, 14. August 1984 — Schuk 
D;:r Vs. R l-Rechnei Sinclair QL ist auch : 
Cnde Oktober run deL;;.-,c;'> !■,■■■ ':':i ■-;!;> Anwej 




e Marktliicke: 



Handbuch und mit 

Programmen in deulscher Sprache 

erhaltlich. 

Mil diesem ungewohnlich vielsei- 
tigen Gerat, das fiber vier Grund- 
programme fiir lest- und Datenver- 
arbeiiuug, Kalkuiation und Grafik 
verfiiqt. will die kurzlichgeanindote 
'lbchtejgs:!Kt!]];;Khrjft Sinclair Rese- 
arch Ltd., Branch Office Bad Horn- 
burg, dou Mark: fur piofessioneile 
Computer nachhathg beleben. In 
den QL eingcbaut Kind zwei Mikro- 




to m 



Sinclair 



T; : !s;;-itLirmildeLi1scJien U:nlHii:t-!ii 
Qbei en: deutschsprachiges 
Ha/idbuch \xr.ti oinyodeulsdi- 
te Program;vio vbi fugen. L!k: 




Sinclair 



Der schone Koreaner: Ein 

IMicht nur Drucker werden billiger, auch Monitore werden seit einiger 
Zeit zu interessanten Preisen angeboten. Fur viele Anwendungen ist 
ein guter Schwarzweift-Monitor notig. Einer davon soil hier vorge- 
stellt werden, der CDM 900/1200 von Monacor. 





Sinclair 



Datenmonitor im IBM-Look 



Blockdia- terei Menu ore. Mir: V.mu: z 




:r-:n-!i ; Jb 
\Zv.\wM-\\ 



range sell!" anyeiiei'in;, 
— bei heller Schrift auf 
rund — etwas leuch;en- 

ich welche Schinrnarbo 
ngriiBe, dieses Produkt 
. is! bei einem Preis um 
gewiS k-Rint; schlechte 
(Jiirgen Howaldt) 



Technischc Daren 






Auflosung 


: horizontal iO'.O ■■■■.'!; vflUvsl 






: typ. 22 MHz 




Vi d eoeingangssignal 


; 1V + 0,5 Vgs, 75 Ohm, 




Horiz. Synohiorusalkiri 






Vert, Synchro ni^a'-ioii 






Ablenkimg 






Bildfiache 


: gears (non-glare) 




Stromverbrauch 


. 30 W (37 W be, S iOllj 








i02Zoii) 






i[9Zoll) 


Gew.cht 


: zirka 7 kg (12 ZolTl 

7ivk-;i4.K k;j :.:;S:»ii; 
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MV 
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^JIDEO 
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MASSE 








VTdeo-lnte 


b». 


i Happy Compute 


6/84 fur Mo 


„„,-A„ 


chlull am Spectrum 
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Spectrum 

RGB-Monitor: 
viel furs 
Auge. nichts 
liirs Ohr 



Der Spectrum kann 
grafisch mehr, als die 
Darstellung am Farb- 
fernseher vermuten 
lafit. Urn die Mbglich- 





haltbar. Damit ist der Monitor zum 
:ispiel auch fur den Sinclair QL ge- 

Das Gerat hat ein ansprechendes, 
-atles Ivleiaiicitjih'iu:-;.;; mil den Ma- 
^jii?aS(liocl:)x:-! : nih'eitiv 287(1 K:f: 



keiten voll zu nutzen, 
ist ein guter Farb- 
monrtor notig. Und da 
gibt es zur Zeit nur 
einen, der fast keine 
Wiinsche offen laftt: 
den CUB Colour 
Monitor. 



Einen (groBen) Wermutstropfen 
gleich vorab: I ISO Mark kostct 
das Prunkstiick, von dem ich 
mich nicht mehr trennen mdchte. 
Dafur bietet der einzige RGB- 
Monitor mil Spectrum-Interface 
aber auch einiges. Die ungewolmli- 
che Brillanz seines 21 s 28 cm gro- 



Mein Fazit 

h an Farbgrafiken, sei es in 
sei es in emsthaflen Pro- 
i, begeislcm kann (so wie 
wird auf lange Sicht merit 
is Gerat herumkommen, 
nn seine bessere Halfte 
;hr Liber den Preis entsetzt 
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^fc 



^ Mtd^M 




>X^ 




Hat man 
eine interessante 
Schaltung zum Nachbauen 
gefunden, so taucht die Frage 
nach dem »Wie« auf. Von der 
»fliegenden« Verdrahtung, bei 
der ein Bauteil an das andere 
gelotet wird, bis zur geatzten Platine ist alles 
moglich. Wahrend die erste Losung weder betriebs- 
noch transportsicher ist, ist die letzte mit viel Arbeit verbunden. 
Aber es gibt noch eine andere Losung, die sogar von Profis bei Ein- 
zelstucken genutzt wird. Gemeint ist der Aufbau mit einer 
Lochrasterplatine. 

Fflremiq" Ai""eir : uinen i=f ^nf h=miste'len Diesen Draht gibt es Temporal]!' ','Oiizirka3bG° Beiemp- 
PlatrnerrdtLeitetbabiionijjiisiig zr " ' ''", ' ' i''lz. '.mi-ili Mr der Draht 

i i :i i ,■ i i 1,1 I •' ■ ■ 'H ■ i Pi iiz-be 

i, ., - ".hi , 'ill 'iii'.i inn DiiiDifniM: i.'i'jer Kraitaklpin 



i von etwa 20 
auch komple- 
sauber und 



jen Howaldt) 
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Spectrum 




Centronics-Schnittstelle 
samt Software 




Bei der selbstgebau- 
ten Centronics- 
Schnittstelle fiir den 
ZX-Spectrum dient 
die Z80A-PIO als 
Port-Baustein. Die 
Copy-Software er- 
laubt die Ansteue- 
rung des Matrix- 
Druckers CP 80. 



abzuandem. Fiir Copy existiert em 
solcher Zeiger leider nicht, die 
FimkLioii kauri wo 1 i' n .■ ih-< FAN 
l)OMIZEl/.SR...r l ,. l -,-: = ; u i ir v ,ien 
Zur Arbeitsweise des Piogramms 
wild auf das kommentierte 
Asscmbie?.--LisLii_ .vrwiesen 

Fttc die 48 KByte-Version karm 
nach CLEAR 63999 d.irekt der Ob- 
jeklcode mittels geeignetem Moni- 
tor eingegeben werden. Bei der 16 
KByle-Version imisstHi die Sprung- 
und Cali-Befehle enisprechend ge- 
andert werden. Der Speicherbe- 
darfbetragt 268 Bytes. 



des Bildschirms. 
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= STIFT-NR. CENTRONICS-STACKER 



schlua am User-Part A 



sind 


an einer Sielle ?u vetbinden. 






f 


(X J = SIN X /X 










/ 


\ 






vy 


v/ 




"*-' 








Mil dem hie: wrq 


stelften Pro gram nr 


iTiidtie Hsrdcopy 
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Spectrum 



ADR. 


OBJ. CODE 


LABEL 


OP 


OPERAND 






■ FAOO 


C3B1FA 






JP 


HUT 


InitiBlisierung 




FA03 


F5 


'- 




PUSH 


AF 


CPU -Reg istfr ret ten 




FA04 


CS 


' 




PUSH 


EC 






FA05 


D5 






PUSH 


DE 






FA06 


E5 






PUSH 


HL 






FA07 


3E1B 


6 




LD 


A, IB 


Zeilenvarschub 8/72" 




FA09 


CDFOFA 


J 




CALL 


PR I NT 






FAOC 


3E41 


u 




LD 


A, 41 






FAOE 


CDFOFA 
3E0S 


-1 




CALL 

LD 


PRINT 
A, OS 






FA13 


CDFOFA 






CALL 


PRINT 






FA 16 


21FF3F 






LD 


HL,3FFF 


Display-File l.Dr-ittel 




FA19 


CD39FA 






CALL 


COPY 






FA1C 


21FF47 






LD 


HL,47FF 


Display-File 2.Drittel 




FA1F 


CD39FA 






CALL 


COPY 






FA22 


21FF4F 






LD 


HL,4FFF 


Display-File 3.Drittel 




FA25 


0606 


n 




LD 


B,06 


Nur 6 Reihen 




FA27 


CD3BFA 


i.r 




CALL 


NEXTR 






FA2A 


3E1B 


I 1 * 




LD 


A, IE 


ZeilPduorschub 1/6" 




FA2C 


CDFOFA 


■>' 




CALL 


PRINT 






FA2F 


3E32 






LD 


A, 32 






FA31 


CDFOFA 






CALL 


PRINT 






FA34 


El 


n 




POP 


HL 


CPU-Register zurueck 




FA35 


Dl 






POP 


DE 






FA36 


CI 


? T 




POP 


PC 






FA37 


Fl 


1 




POP 


AF 






FA38 


C9 


i-i 




RET 




Er.de 




FA35 


0608 




COPT 


LD 


E,08 


8 Display-Zei leu 




FA3B 


C5 




NEXTR 


PUSH 


EC 






FA3C 


E5 






PUSH 


HL 






FA3D 


CD5AFA 






CALL 


PIXELR 






FA40 


E5 






PUSH 


HL 






FA4 1 


CD82FA 






CALL 


IMITG 


Listing. AnstfiuBrung des M 


trix- 


FA44 


CD97FA 






CALL 


OUT 


druckers CP 80 




FA47 


El 






POP 


HL 






FA43 


CD5AFA 






CALL 


PIXELR 






FA3B 


CD82FA 






CALL 


INITG 






FA3E 


CD97FA 






CALL 


OUT 






FA51 


El 






POP 


HL 






FA52 


012000 


** 




LD 


BC,0020 






FA55 


09 






ADD 


HL,BC 


Anfangsadr-.naecrrste Zei 


e 


FA56 


CI 






POP 


EC 






FA57 


10E2 






DJNZ 


-30>NEXTR 


8 X durchlau-fen 7 




FA5? 


C9 L 


4 




RET 








FA5A 


0604 




PIXELR 


LD 


E,04 


4 Pixelreirien 




FA5C 


CS 




NEXTPR 


PUSH 


EC 






FA5D 


110O5B 






LD 


DE,5B00 


Printer-Butter 




FA60 


0E20 






LD 


C,20 


32 Eyte/Piiielreihe 




FA62 


O608 




BYTE 


LD 


B,08 


8 Pixel/Byte 




FA64 


23 £0 






INC 


HL 






FA65 


CE06 




NXTPIX 


RLC 


tHL) 


High-Bit in Carry 




FA67 


EB 






EX 


EE,HL 






FA08 


CB16 






RL 


(HL1 


Carry in Bti-f + er 




FA6A 


EB 






EX 


DE.HL 






FA6B 


CBOE 






RRC 


(HL) 


wieder zurueck 




FA6D 


CB06 






RLC 


1HL) 


nochmal 




FA6F 


EB 






EX 


DE,HL 






FA70 


CB16 


srs 




RL 


(HL) 
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Spectrum 



^ FA72 EB 




EX 


DE,HL 






FA73 13 
FA74 10EF 




INC 
EJN2 


DE 


IX 


8 Pixels ? 


FA?n OD 




EEC 


C 






FA77 20E9 
FA79 OlEOOO 




LD 


NZ,-23>BYTE 
BC,OOEO 


32 Bytes ? 


FA7C 09 
FA7D CI 




ADD 
POP 


HL,BC 
BC 




«n„„,„d r .n.P i K,l r .,h, 


FA7E 05 




DEC 


B 






FA7F 20DE 
FA81 C9 




RET 


NZ,-37M> 


EXTPR 


4 Pijelreihen ? 


FA82 3E1B 
FAE4 CDFOFA 


INITG 


: LD 

CALL 


A, IB 
PRINT 




Graphik-Mnde norinale Dichte 


FA87 3E4B 




LD 


A, IE 






FA69 CDFOFA 




CALL 


PRINT 






FABC 3EO0 




LD 


A, 00 




5l2 Bytes 


FA8E CDFOFA 




CALL 


PRINT 






FA91 3E02 




LD 


A, 02 






FA93 CDFOFA 




CALL 


PRINT 






FA96 C9 




RET 








FA97 21O05B 


OUT 


LD 


HL.5B00 




Printer-Buffer 


FA9A 010001 
FA9D 7E 
FA9E CDFOFA 
FAA1 7E 
FAA2 CDFOFA 


AUSG 


LD 

LD 

CALL 

LD 

CALL 


BC, 0100 
A, (HL) 

PRINT 
A, (HL) 
PRINT 




256 Bytes 
Muster in Akku 
ausgeben 
nnirhmal 


FAA5 23 
FAA6 OE 




DEC 


HL 




"*»"" *" 


FAA7 78 




LD 


A, B 






FAA8 El 
FAA9 20F2 




OR 
JR 


NZ -14>A 


ISG 


Bu-f-fer- leer ? 


FAAB 3E0D 




LD 


A,OD 




CRLF 


FAAD CDDEFA 




CALL 


LPRINT 






FABO C9 




RET 








FAB1 3E0F 
FAB3 D35F 


INIT 


LD 
OUT 


A, OF 
(5F) , A 




Port A = Ausgang 


FAB5 3ECF 
FAB7 D37F 




□ UT 


A,CF 
(7F> , A 




Port B - B,t,„d. 


FAB9 3E01 
FABB D37F 




LD 
OUT 


I7FJ , A 




Fart B Bit = Eingang 


FABD 3E67 
FABF D37F 




LD 
OUT 


(7F) , A 




Fort B kein Interrupt 


FAC1 3ESO 
FAC3 D33F 




LD 
OUT 


A, 80 
(3F) , A 




Strobe = 1 


FAC5 2A4F5C 
FAC9 O10F00 




LD 


HL, 15C4F 
BC.OOOF 




Pointer- umstel ler, 


FACB 09 




ADD 


HL,BC 






FACC 01DEFA 




LD 


BC , LPR I H 






FACF 71 
FADO 23 




LD 

INC 


(HL! ,C 






FAD1 70 




LD 


(HL) ,B 






FAD2 2100FA 
FAD5 3600 




LD 

LD 


HL.FAOO 
(HL) ,00 




JP INIT loeschen 


FAD7 23 




INC 


HL 






FAD8 3600 




LD 


(HL) ,00 






FADA 23 




IMC 


HL 






FADD C9 
FADE FEOD 


LPRINT 


RET 

CP 


(HL) ,00 
OD 




druckBrs CP 80 (FonselzungJ 


FAEO 2B09 




JR 


Z,+9>CRLF 
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Spectrum 



^ 


FAE2 


FEBO 




CP 


SO 




Token 7 






FAEq 


38QA 




JR 


C,4-10>PRINT 








FAE6 


D6A5 




BUB 


A3 










FAE8 


C3100C 




JP 


ocio 




in ROM weiUr 






FAEB 


CDFOFA 


CRLF 


CALL 


PRINT 




CR 






FAEE 


3EOA 




LD 


A,OA 




LF 






FAFO 


F5 


PRINT 


PUSF 


AF 




Zeichen retten 






FAF1 


F3 




DI 






Interrupt sperrpn 






FAF2 


3E7F 


BUSY 


LB 


fi,7F 




Ere ak-Abf rage 






FAF4 


DBFE 




IN 


A, IFE) 










FAF6 


IF 




RRA 










V 


FAF7 


3011 




JR 


NC, + 17 


BREAK 


sss** 






FAF9 


DB3F 




IN 


A, (3F> 






FAFB 


IF 




RRA 










FAFC 


33F4 




JR 


C, -12>EUSY 








FAFE 


Fl 




POP 


AF 




Zeichen zur-uecl: 






FAFF 


D31F 




OUT 


(IF) , A 




Ausgeben an Drucker- 






FBOl 


AF 




XDR 






Akku Mul lsetzen 






FB02 


E33F 




OUT 


(3F1 , A 




Strobe = 






FB04 


3E90 
















FB06 


E33F 




OUT 


!3F) , A 




Strobe = 1 




1' 


FB03 


FB 




EI 






Interrupt -fr-eigeben 






FB09 


C9 
FB 


BREAK 


RET 


EI 




Interrupt fr-eigeben 






FBOB 


CF 




RST 


08 




Feh I errout i ne 






FBOC 


OC 




INC 


C 










FBOD 


00 




NOP 






Pr D gr S ™-End & 
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Spectrum 



-mini-pom 1 - 

Schalten und Walten iiber die »MIC«- und »EAR«-Buchsen 



Ein Schaltinterface mit so wenig 
Bsnteilen? Nun ja, ein paar Eirt- 
schrankungen muB man da 
schon inKaufnehmen. Aber lmmer- 
hin kano mit Basic ein Relais ge- 
schaltet und mit einem Taster eine 
Einaabc riemacfit wcrden, Und ein 
paar Vorsiige hat die Schaltung 



Schalten mit BEEP und 
Piep 



muB in die EAR-Buchse ein Tonsi- 
gna] einspeisen. Das isl aber tech- 
msch kein Problem. Was als Handi- 
cap bleibi, 1st die Tatsache, daB nur 
eine Ein/Aus-Funktion fur jede Rich- 
rung zu erreichen ist, denn Tonfre- 
quenzfilter waren zu aufwendig; da 
kann man iieber ein »richiiges« 
Schaltinterface bauen. 

Die Schaltstufe 



den Widerr--j '.?' mi :.■= Diode 
Dl. Gatter N2 mbe&SI ,iL; tapulsfar- 
mer und liefer j^ J dial:.:. ;nal fur 
den Transistor Tl. Die Diode D2 
schiltzt den Transistor vor Span- 
mmgsspitzen, die beim Abschalten 
des Relais entstehen. 

DieDimensionieruiigder tiaul.eile 
ist nicht so britisch. Gleiche Werte 
miissen aber Rl und R2 haben und 
RS sollte nicht kleiner sein. Wenn 
das Relais mehr als 100 mA benotigt, 
fQr Tl ein anderer Transistor 



rendel i 



liebss 






Stiickliste 






4K7 = H13 




= Dl. D2 


10 K » Ml 




- Tl. Til 


IB K = HB 


0,1 ,iF 




47 K =SH 




= C11 


100 K - HI. RE. R3 








CD4010 


= N1...N4 


I MZ = Rl K6. 








Je Socke 






Klinkr:!i 


ccfcer 2,5 




Relais m 


aximal 100 




"* 





abgeschirmtes Kabe: ; 



Der »Pieper« fiir die 
Eingabe 

Ober die EAR-Buchse ist der 

Spectrum ja nur fur Tbnfreguenzen 
zuganglich. Ein Reaiileckgeneraiof 
ist mis den Gatlern N3 und N4 aufge- 
baut, er schwingt, solange der Ta- 
ster gedriickt ist. Der Transistor ar- 
bcitct als impedanzwandler. 
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-13 V 














n R1 

U 100 K 






nn4 

U1MZ 


Rel.C 


3 f D2 


MIC- 
Buchse 




| IM2 
UlOOK 


m 
—fj_ 

2 


Dl 


N2 
R3 [ Sj. 4 

ioOKf 6^~ 

cL CI 

T 0,1 ,.S 


IBS ** 


ti 












Schaltsrufe 







Auch hier miissen die Bauieilwer- 
te nicht genau eingehalten werden, 

denn die Frequenz ist fur die Funk- 
ton mchi ;;o cntscheidend 



Eingabe und Ausgabe 

Die Progiarnmierung aus dem Ba- 
sic erfolgt fur die Sohi-iltsUiie mit 
BEEP 

BEEP Zeitdauer, Tbnhohe (Hand- 
bucfi Seite 137) 

Diese Schaltung arbeitef ab einer 
Tonlange von 0,02 Sekunden, und 



Diode 



-eh- 



K 

* 



Ring 



1 N4148 
oder ahnlich 



die niedrigste Frequenz liegt bei zii- 
ka -40. Das Relais schaltet fur die 
D;i:it:-'- des BEER 

Die Abfrage der EAR-Buchse er- 
folgt bei jeder Tfestaturabfrage. Mit 
•IN 254* erhalt man ohne Ton den 
Wert 2S5, mit Ton den Wert 191. Die 

EAR-ElL'±";o b.501 ddli! d;;'ll i):::i : :r 

bit D6 mit dem Bitwert 64 (255-64= 
191). Weitere IN-Adressen lrn Hand- 
buch auf Seite 160. Ein Tonsignal ist 
eiiie schnelle Folge von Impulsen. 
Um sicher zu sein, daB der Spec- 
trum nicht gerade zwischen zwei Im- 
pulsen die EAR-Buchse prttfi, sollte 
die IN-Abfrage in einer Schleife lau- 




Software zum Testen 

In Listing 1 kann die Abfrage- 
schleife durch eine Eingabe dimen- 
sioniert werden. Wenn ein Tonsigiial 
anliegt, wird die EAR-Buchse 
lOOmal mit dieser Schleife abge- 
fragt und das Ergebnis angezeigt. 
Damit ist zu prufen, welclie durch- 



So.ll das Piogramm nur die EAR- 
Buchse iiberwachen, so kann die IN- 
Abfrage in einer Endlosschleife Ian- 
fen. Dafiir gibt Listing 2 ein Beispiel. 
Wird ein Ton erkannt, so wird auf 
die Ausgabe verzweigt. Es erscheint 
eine Meldung auf dem Bildschirm, 
und das Ausgaberelais »blinkt« im 
'iakl von BEEP und PAUSE. 



O.Jta 



nidi) 
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♦I S!" ... * ' 

$ if-'" ^ °< 



8 * 



J 



JH fifP ,« 8.,, ' t *'*fTKr«t ft j ., 







< 




'-: 






&■■*•# 



TO 



'"'A. 
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Progr 
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EfiR-flbrraae 


flbf r«ge 
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S 


gtpru< ft 
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trmnnt 
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Spectrum 



Soft-Schalter 



Eigentlich sollte der 
Softswitch 3/4 nur 
eine einzelne 
Schaftstufe werden. 
Gedacht fur die 
RAM-Umschaltung 
bei einem 80-KByte- 
Spectrum (Happy- 
Computer 8/84, 

Seite 26). Aber dann Muster-AufbauderSchalturig 

fiel ohne Mehraufwand noch eine zweite Stufe ab. Und wenn man 
die Moglichkeiten des Adrefidecoders ausnutzen will, dann lalit sich 
noch eine weitere Doppelschaftstufe ansteuern. 




Die Schaltung 

Die Decodiemng mit dem ODER- 

Gatter IC1 liefert drei Freigabesi- 
gnala Die Flip-Flops in IC2 und IC3 
ubenielimen und speichem den 
Wert des anile q end en 1 
Eintteffen e 
gnale. Die Ausqange der Schalter 



Bexeierxu.-iq cc-s Daienbits. das die 
.^lN.-'AiJS Kui;kiio:, bostimmt. 

Dor Transistor Tl arbeitet als Trei 



Die Anwendungs- 
moglichkeften 



:, Wei 



;■;:■,:■! 



verbtmden. Der Spectrum lauft jetzt 
audi ohne den Softswitch, weil 
dnrch den Widerstand ein Spei- 
clie:t!r;:-f>ich vo/qewahlt ist. 

Mit einer Leuchtdiode laBt sich 
der gewahlte Speic her be retch an- 
zeigen. GroBeie Verbrai ichor 
schnltot man Lesser iiber ein klei- 
nes Relais, um dem Spannungsreg- 
ler des Spectrum nicht so zu bela- 
sten. Sowohl Leuchtdiode als auch 
Relais :nus;;oi; iiuiiirlieh liter e-inen 



Rdrtaibit i Rdrtna 
7 6 B OUT 


t 883 


* 191 


# 187 


* * 169 


• t S3 


# # 95 


# » » 31 
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Soft-Schalter 



,3 — =^ 

e — o oot asset) 







pause 19 

a, IS; "a" 

PAUSE 10 



Zur Software 



POKE USP. ' 
Listing ..RAMS 
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I 01800010 



word en die Flip-f'loi 
Tnbeile Keigl fur die; 
i5c:"iaJorl:cmb:n;!-ii;n 
Die Schaiiei AU u: 
mit dem Weit »0« ur 
'::i:iQtj:;i:iialiei. l-'u> A 1 ; 
miUO«bis»l«und»0«t 
naren Dante 11 una 
i>f3li[iker« wird die 2 



Spectrum 



Ein Joystick-Interface 



. Die AnschluBbelegung fiir 
y;Lhckf'r,l;;pnchLuer von Atari 
.r-'mvl::i'.: /usaiilidi auf der 
. !■.... ;-! DmoribitDS-ind 
enn der Eingang fur andere 
;rden 



ichie Bit brauchen 



:i Date i i.l :>::;; 
liegt an Pin 



Haben Sie auch schon so vtele »Leben« ver- 
loren, weil Sie sich bei einem rasanten Spiel 
in den Cursor-Tasten geirrt haben? Mit einem 
Joystick lassen sich die Bewegungsrichtun- 
gen viel leichter umsetzen — auch diagona- 
ls mit denen man sich bei den Tasten be- 
sonders schwer tut. 



Software zur Joystick- 

Abfrage 



Interface 1st mch; gleich Inierla 
Die drei wichtigsten Verfahi 
der Joystick-Abfrage sind; 



icks. Eiilapiidnl: cjrd 




einfallen. Das cioht hin 
eien Programmii:rbiL; 
st das wirklich bedie 



Die Schaltung fur Joystick 
und Trackball 




;ich dann entsprechend mil 
jia DO mit den Bitwerten 8,4 
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1 








BE 








Die komplette Sctialtunq 




7B 


a I4 3 
i £ id 

2 12 

13 7 








SB 


j 






17 B 












1EB 






23A 






6.7A 














. 



















at a, a; "Bi twert >= 38" 
so to azea 






38 REM JOY 31 
























79 DIM bf (5,51 








LET d»"b«tSJ 








100 LET b« 13) = M UNTEN " 




LET d«-c« 

IF a>»8 THEN LET a«a-Q 


3S0 


























168 PRINT RT 7,9; 




LET d*=b»i3) 










LET di-Cj 

IF 3>-S THEN LET a =5 -a 


"IN 31 - Utrt : " 
















4ee 


LET ds-C* 

IF a>5 THEN LET d««b«(ll 














430 
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Spectrum 



Das Schaltbild yoigi. '.ve/jhe Kon- Hardw, 

iakle :>oncligi word en Vbrweg redurc 

noch eiruge Erlsureniiigeii aur geben 

Funktion. das lau 



RESET-Steuerung: fiber den Ein- 
gang RESET wird die CPU auf den 
Aniangszuatand und der Pro- 
grammzahler auf Null gesetzt. Um 
diesen definierten Zustand auch 
beimEmschahendeiBeiriebaapa!i 
nungzuen-eiclu'-i.-.A.trdeinKonder- 
sator am RESET-Einqana iiber omen 
Widerstand. aufgeladen und er- 
zeugt damit den Power-On-Reset. 
DiesenKondensi-< , '-...;i ■ ■• i njeht 
ohne Vorwiderstand entladen {der 
Wert ist nictit so knhsch). 



Imerrupisteuerun<j; Die CPU hat 

zwci SteuereingangeflNT, NMI), die 
eke UiHerbioohinig dnr Pro 
grammbearbeitungbewirken. liber 
dieae Leitungen konnen exteme 
Gerate die Unterstiitzung der CPU 
anfordem. Mit einem einfachen Ta- 
ste: la St sich natiirlich keine ordent- 
liche Interruptsteuerung realisie- 
ren, we.il man doch etwas mehr 



Die maskiorbarci Unterbfechung 

(INT)IafJ: sich durch Software untei- 
driicken beziehungsweisc beein- 
flussen; damit ist die Wirkung cie- 
seaTaaleraeingo^chrerikt. Eir.oMe- 
thode der Maskierung fiihrt auf die 
Speidicradrp : :■ i" .:: I '■ i ...!!■ 
die Tastafurabfrage auigerufen 
wird. kann man sich eventual!, mal 
aus einer Endlosschleife retten, oh- 
ne das Progamm zu loachen. Ein 
Baaic-P.ronramm s:oppt fur die Zeit 
dei Tas: on d rucks, 



Die nichtmaskierbaie Umerbre- 

chung (NMI) bewirkt einen Aufruf 
der Speicherstelle 0066h und damit 
einen Kaltstart qcs Svsi.ems. Man 
braucht also nur den RESET- Oder 
(■Ion NMT Taster. 

(Jiirgen HowaldO 



bremse 



Will man einen KaK- 
start nicht iiber USR 
machen, oder hat 
sich ein Maschinen- 
programm in einer 
Schleife gefangen, 
so greift man zum 
9-V-Stecker, um 
durch eine Unterbre- 
chung der Versor- 
gungsspannung ei- 
nen Rower-On-Reset 
zu erzwingen. We- 
der eine elegante 
noch eine material- 
schonende Prozedur. 
Wenn ein Port- 
stecker vorhanden 
ist, so laBt sich mit 
zwei Tastern schnell 
Abhilfe schaffen. 
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OPEN# unci Close # - 



auch ohne Microdrive nutzbar 



Zu den wenig dokumentierten Befehlen des 
Spectrum zahlen »OPEN # « und 
»CLOSE#«. Das sonst so ausfuhrliche 
Handbuch verweist auf die Verwendung mit 
dem Microdrive. IMatiirlich macht erst der 
Einsatz des Interface 1 mit seiner zusatzli- 
chen Software diese Befehle voll einsatzfa- 
hig, aber was man schon in Verbindung mit 
einem ZX-Drucker damit anfangen kann, ist 
interessant. Und wer keinen Drucker hat, 
kommt auch nicht zu kurz, denn einige 
Moglichkeiten kann man auch auf dem Bild- 
schirm nutzen. 



1 


REM Li 


tli 


ng 1 


19 

30 


PRINT 
LPRIN1 
PRU5E 


"p 


ntn" 
rinitr" 



jdei »p« auszugeben, wird mii der 
vleldung »J "Invalid I/O device" 

Nun kann man nicht nur eine 

J RINT- oder LPRINT-Anweisung 
iber einen anderen Stream ausge- 
Den, sondern audi den Saeam aut 
sinen anderen Kanal yclialien. Das 
jeschieht in der Form: »OPEN# 
%c$', Dabei ist mm eine Zahl zwi- 
;chenOund IS una »c!|i« die Kana'be 
^eichnung (»k«, »s« oder »p«). Damil 
wird eine ganzi"- Crumps JPRIMT. 
UST odor LPRINT. LLIST) aber ei- 



obere 
:. Eine 



■."■;,-.i.'.': i og, Diese 
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1 


REM Li 


tuna 


2 


5 


CL5 : 


BORDER 6 


IB 


FOR m 


= 1 TO 


as 


30 


PRINT 


a*.; n, 


■■ob«n - ' 


33 


NEXT I 






40 


PRU5E 


lee 




50 


FOP Pi: 


.1 TO 


aa 


ee 


PRINT 


»s,n , 




72, 


NEXT 1 






8(9 


PAUSE 








werden, oder PRMMnweisungen 
lassen sich mtihelos auf den 
Diucker umleiten. 

Aub den vielen KombinationsmOg- 
lichkeiten, eine Anweisung iiber ei- 
nen anderen Stream auszugeben 
oder emen SI ream auf einen ande- 
ren Kanal zu schalten, hier einige 



Spectrum 




Anregungen fur eigene Versuche. 
VeKjleit:lionSi(.!df^uciaEf;-hcini.i'ii 
Bild 2. 

Aufgabe: Emo PRINT-Anweisung 
sol] au: ZeJe ?A rs'sehernen. 
Ldsung; PRINT* 0;' 'Hallo' '[Pause 
Weil Stream mil Kanal *ks ver- 
bunden ist, geht »Hallo« auf das un- 
lere BM. Mit #3 wird die Begrii- 
Bung auf dem Drucker ausgege- 
ben. Die PAUSE verhindert nur ein 
Uberschreiben durch die »OKa- 
Meldung. 

Aufgabe: Die LPRINT-Ariweisung 
aus Listing 1 soil auf Zeile 24 erschei- 

L6sung:OPEN# 3,"k" 

Die Gruppe LPRINT.LLIST liegt 
auf Stream 3, der mit dern OPEN # 
-Befehl auf Kanal »k« geschaltet 
wird. 

Aufgabe: Eg wird ein Programm fiir 
(lie Ausgabe auf den Drucker ge- 
schneben. es soil auf dom Bild- 
scbirm i*;Ha»: .".-rden 
Losung: ..-,.'■ :.!-.;,:' ...mi print 
voiwend.jr. ;i; i: .r 1-,-nn init OPEN# 
2,"p" die Gruppe PR1NT.LIST auf 
den Druckerkanal geschaltet wer- 
den. Qiirgen Howaldt) 



Stream 


Kanal 
P 




k 


Beftitils-Gmppe 


#0/1 


X 


X 




INPUT, (Taslatur) 


« 




. 




PRINT, LIST 


,3 


* 






LPRTNT, LLIST 


#4 
#15 








trei 




1 


11 


II 


J ") beim Einschalten 
vorgegebene Stream-Eanal- 
Schallung 
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MASSENSPEICHER 



Gab es bis vor kurzem nur zwei 
Liisungen fur die Problemzone Daten- 
speicherung, so kiindigt sich plotzlich 
eine Lawine von neuen Speichermedien 
fiir den Spectrum an. 




Drskeltensysieni van Technology Research Ltd 



Zuiucksp-dlen. Ceeiqnele »Dnlem<-'- 
corder* gibt es ab etwa 100 Mark ira 
Handel, sehr gute Ergebnisse er- 
zielte ich mit dem abgebildeten Re- 
corder von Schurnpich und dem So- 
ny TCM 3. Der Schnmpich-Recor- 
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Es geht schneller 

Schon auf der leWen Compuier- 
Fair in London fie] mir em sogemnn- 
ter «SpiintB-Recorder auf. ' Dieses 
Gerat arbeiloi yorjoniiber dern her- 
kommlichen Recorder mit der vier- 
fachen<3eschwir;din^o:- i.ma i:-t vol! 




K;;-;; 



i Re- 



r Key board, Interfa ce, Joysticks , Trackball, Ligh tpen, Software ~| 




Software Spectrum: Software C-64: 



•I 

I INFO-Katalog SI 



fsTEPH AN TRIE BNE^EIeldmnische Patenverarbeitung VPostfach 1 2 72.61 03 Griesheim/Hessen, Tel.: 61 55/1777 
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Recorder koslet 259 Mark und wird 
direkt auf den Bus des Spectrum ge- 

Konsequente Weiterent- 
wicktung 

Die genannten Mangel der C- 
Kassetle wurden auch bei der als 



aura*. Ein gesuchtes Programm 
kann also, jenachdein, wie das Band 
gerade stehl. in spatestens 11 Se- 

kuoden cjefuncten '.verden (diese 




~-T" 



«#> 



a:c:in:n*aufd:cs(=iT:C,.ir:iidne;:: 




rechi oi'dfiiilliclie 
vvill !■;:": i tier iedoch 



Mehr Gerat fur weniger 
Geld 

Commander Turbo-Dual-Drive 
heiGt eine Uberraschung aus Eng- 
land, die von Nettetaler Computer- 
systeme in Deutschland vertrieben 
wud. Dieses Speichermedium ist 
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sowohl ffir den Spectrum als in Kiir- 
ze auch fur Commodore 64 erhalt 
lich. Es funktioniert im Prinzip wie 
der Microdrive von S_nd-;it. i.<;i i-. 

dochalsDopp^hiikvotk. kon/ipisrl 

und hat neben der V.24- auch eine 
Cenironies-SchiiiiLsteilc zum An- 
schlu8 eines DbkSws emgBfcaBt 

Emgesondeiler. k ■■ 'kicewrrdnicrit 
benotigt, das Prunksiiick far knapp 
SOO Mark wird direkl an den Spec- 
i r ! rn aiigesckLOsser: . Kassetten da- 
fiirgibt esin EiiEi Langon: 17. 38. 70, 



Geht es biiliger oder 
preiswerter? 



s:ehe 



ISKByl 



;vl-;.v 



chert ia 
Spure 



i ■ ii 



Jetzt geht es rund 

Alle bisher genannten Speicher- 
gerate verwenden als Datenirager 
ein mehr oder wsmgea (Handles 

Tonbarid. Seit wenigen Wochen je- 
dock, und iejc.er auch nui in be- 
grenzten Sttickzahlen, sind richtigc 
FIoppy-Laukwerke erhaltlich, die 
iiber ein spezielles Interface von 
Technology Reserach, mit dem 
Spectrum-Bus verbunden werden 
Diessniiifaek iidc'D(in f ^ila--fv:e-- 
ke verwenden normale S'A-Zoll- 
Disketten als Datentrager. Je nach- 
dem. welches Shu qart- [compatible 
Laufwerk sie verwenden werden 
die Daten auf 40 bis BO Spnren ein- 
oder zweisemg in einfacher oder 



Mark als ,:.:■.!. < :i k ■K.nlcttes Sy- 

1 900 Mark bei Profisoft oder von 

Profisoft bcliefeilen Handlern kau- 
fen. Ausiiihrliche Testberichte fin- 
dem Sie iibrigeus in "Computer per- 
s6nlich«, Ausgabe 18, ab Seite 166 
und in »Happy-Compnter«, Ausgabe 
10 ab Seile 42. 



Schreibdichte. Dies ergibt etwa 100 
KByte Speicherkapaziia: pro Disks ■- 
te. Der benotigte RAM-Bereich des 
Controllers liegl an der oberen 
Grenzedes 48- K.Bvk; Si wieners des 
Spectrum. 

Ob die mit diesern System be- 
acrnieborien Disketten mit dem 
Prctisorf-Sysieiii zu iesen sind und 
umgekehrt, wird eir. Test erceber. 
Daabi-rbeidi n jicich 

Laufwerke vetv.- nden i .i,, n 'iecri 



Kleiner bietet's 

Anaskundi'Tt wurde 



Wo gibt's Software? 

Die Speicberkapazitat betragt 14S 
KByte- ie Diske"te : deien Preis bei 23 
Markhegendiirfte. Das System ver- 
fttgt fiber eine Autostart-Mbglich- 
keit. Weitere Informationen liegen 

Wir werden Ihnen jedoch 

schnellstmcgiich einen lestbericht 
liefern. 
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Rat: MonklboiHi.icim.i 



SPECTRUM und ZX 81 






fW 



Spectrum ProfitastaturDM ise- Spectrum-PIO-Bausatz 



AnsetiluOder lnsUiti.r (lurch 

Busverlangerung 



dta fiir ZX81 

Eingabeeinheil 



Prof itastatur mit led (im bm mows) dm 2 

onna Geh3u3e dm i59- Spectrum sleeker 56polig, 

ZX81-Tastatur 2 s,Qck uncl ' Zwis,:lieils,0ch m ''■ 

mil Dauerfunkton ajf alien Taster, DM 89.- dtO. fur 2X81 DM 2 



Spectrum-Adapter 
Sondergenerator 

Experi mentierplati n 

fflrZXSI odei Spectrum. 2 S 

Floppy-Interface 



Software Sondarai 






a Egeler MC-Elektronlk, Grunthal 21, 8201 Raublirtg t< 



34 SM&, 



tm>*. 




HI 35 



LOADER 

GUENTER 

STEINMEYER 

6/1984 



0BREM RESERUIERTER PLATZ FUER 
56 BYTE MRSCHINENCQDE-PROGRAMME 

1 REM 

a REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 
10 REM 5PEICHEREINQA8E 

20 FOR 1316514- TO 16S62 STEP 8 

38 PRINT I; " "; 

40 INPUT HS 

41 IF LEN fl$olS THEN GOTO 200 

45 PRINT AS, ■' => "; 

46 LET C»0 

50 FOR J=I TO I+? 

60 LET P= (J-I) *2 + l 

70 LET XsiCODE A* (P ) -23) * 16+CO 
DE dt (P + l) -35 

30 LET C=C+X 

93 POKE J,X 

100 NEXT J 

110 INPUT 

115 PRINT 

120 IF ZO 

130 NEXT I 

140 STOP 

200 CL5 

£10 PRINT -ERROR - CJEBEN SIE DI 
E ZEILE NOCHEINMAL EIN" 

£20 GOTO 30 

400 REM SPEICHERAUSGRBE 

410 FOR 1=16514 TO 16568 STEP 8 

420 LET C=0 

430 PRINT I; " "j 

440 FOR J«I TO 1+7 

450 PRINT CHR* INT (PEEK J/16+2 
8); CHR* (PEEK J-16HNT (PEEK J/1 
6) +26) ; 

460 LET C=C+PEEK J 

470 NEXT J 

475 PRINT " => "JC 

430 NEXT I 

490 STOP 

500 SAUE "HEXLOADEB" 



THEN GOTO 200 



16514 372A382A373B2E2B 

16522 37392S3780353126 

16530 393F002e3fl2R3700 

1653S 212200273E392A00 

16546 322S3328202E332A 

16554 332834292R163537 

16552 342C372632322A00 

Bile! 1. Listing fur ZX81 



3. Vercleichsts belie der Codes 



318 
267 
368 
3SS 
331 






1 REM 

2 REM HEX LOADER 

4 REM SPECTRUM - UER5I0N 

5 REM MSNFRED-D. KOTTING 

6 REM 

10 REM SPEICHEREINGP.BE 

20 FOR 1=23760 TO 2380S STEP 8 

30 PRINT I; ■' "J 

40 INPUT AX 

41 IF LEN A*Ol THEN GO TO 200 
45 PRINT A*;"" -> "■} 
45 LET C=fl 
50 FOR Jil TO 1+7 
60 LET Pa (J-I) *2+l 

70 LET YaCODE A*(P) 

71 IF Y>57 THEN LET YoY 

72 LET X*CODE A$(P+li 

73 IF X>57 THEN LET X=X 

74 LET XaX-48+ CY-48) *15 
50 LET C=C+X 
90 POKE J,X 

100 NEXT J 
110 INPUT Z 

115 IF CaZ THEN PRINT C 
120 IF IOC THEN GO TO 200 
130 NEXT I 
140 STOP 

200 CLS : REM FEHLERMELDUNG 
210 PRINT "ERROR - GEBEN SIE DI 
£ ZEILE NOCHEINMAL EIN" 
220 GO TO 30 
400 REM 5PEICHERRU5GABE 
410 FOR I=£37S0 TO £3806 5TEP 8 
420 LET C=0 
430 PRINT I; " "; 
440 FOR J=I TO 1+7 

450 LET ASaCHRS INT (PEEK J/16+ 
48) : LET Bi=CHRi (PEEK J-16»INT 
(PEEK J/16) +48) 

451 IF CODE A$>57 THEN LET A* = C 
HRS INT (PEEK J/16+55) 

452 IF CODE B*>57 THEN LET B$=C 
HR* (PEEK J-16*INT (PEEK J/16) +5 
5) 

455 PRINT RtiBt; 

460 LET C=C+PEEK J 

470 NEXT J 

475 PRINT " -> ",C 

4S0 NEXT I 

430 STOP 

500 SRUE "HEXLOADER" 



£3760 
23768 
2377S 
23784 
£3792 
23800 
23803 



5245534552564945 -> 613 

S254455220504C41 -> 570 

545A£046554552£0 -> 544 

3536204259544520 -> 479 

4D41S34343494E46 -> 5S4 

4E434F44452D5052 -> 568 

4F4752414D4D4520 -> 552 



Bild 2. SpectrumAfeision 




me , 



36 iSffe, 



Spectrum 



Bingo-Jackpot 

Programme, die Geldspielgerate simulieren, gibt es wie Sand am Meer. Noch ei- 
nes? Ich glaube, daB sich »Bingo-Jackpot« wesentlich von anderen Program- 
mer! dieser Art unterscheidet. 



Normalerweise iehli ilf.-i S-'iriiilaloien der ridtige Spielreiz, 
weileinrichtigesFtisiko. Gelc: u ■.<erl:sren. nicht besteht. Meist 
wirdauch der exr-sm kui/e ; : ;piel;:;;-!:n..i ubernommen, und die 
Gewinnkombinationen sind von vornherein festgelegt Fazit: 
Was beim ngtofien Bruderi durchaus Spannung erzeugt, 
nimmt den Simulatoren den Pf iff, und die Sache wird schon 
nach wenigen Durchlaufen langweilig. 

Die Idee 

Meine Idee war es, den Spiofi unvud, ■-:,■-! en Lind ein Pro- 
gramm zu schreiben, dessen Konzepi i-'.ir oin richtigos Garni 
nicht anwendba: waro. dai'ur oi "■■"^ _ i ■ Spin, im herKorrmlichen 
Sinne abet sehr nahekommi. Daher gibl es bei sBingo- 
Jackpot* sine variable Gevvvrrim-jglichkeii. die vom Spieler 
Kalkulationsfah.gkri! i.rv.i Hiaikobcroi| : -;di'ill verlangt (ahnlich 
wie bei 17+4 oder Poker) Wie h-si cJ«n Originalgeraten kann 
auf spannende Weise der Gewinn durch »Gambling-s vcrander t 
werden, Um einen ubergeordneten Spielsinn zu schaffen, hat 
das Programm eine Jackpot- Funktion, deren Auslosung von 
der kompletten S;irnrT'li.i'if; ;-ner der b;:iden Gewinnmdglich- 
keiten (Symbol oder Farbej abtifinqt (Shnlich wie bei Ftomme 
Oder BingoJ. Die Js^pol-Aii.-r.losung orfolgt in Form von Se- 
rienspielen, in denen jeweils der bis dahin gesammelte 
..■■ackpe! Belrag g -: ivo mer warden kann. 

Es gibt die Mogi'i:h:<eii. siieivi ;Slarlkapital = 15 Mark) oder 
?ii /weit (Startkapital — 10 MarKj zu spiolen. Ein yesclllosse- 
ner Spielablauf ergibt sich dadurch, daB Minuszahlen im Spie- 



lerktipilal oder (.lie Jy^l;p'.v:-Ai.,i.lo:-ui^; da-' '3piel regelrech: 
beenden. Die Spieizeit betragt dabei meist zwischen 15 und 
30Minuten. DasSpieUiiiliiMli'jr den Knzelsp'eler, den Jackpot 
moglichst hochzutreiben und eine ho he Zahl von Serienspie- 
ien zu erzieien. Spielt ntisri zu zweit. ist os wichtig, durch die 
Jackpot- Auslosung dem anderen zi 



Bemerkungen zum Programm 



Die Zeilen 2950 bis 2970 sind absichtlich als Unterpro- 
gramme geschrieben worden (die Schleitenform war untiber- 
sichtlicher). 

Der Einbau ein-r aiop-VOplici'keit war vorgesehen, hatte 
aber den Ablaut unnotig verzogert und zum Spielreiz nicht we- 

st-sritlicn beigetragen. 

Tips zum Abtippen 

Weld'e Buchstaben in G'fsf'k-Moci.is oinuegeben werden 
mCissen, ist im Unterprogramm 6500 ersichtlich. Die Zeilen 3 
bis 51 (= Bedienung-anleiturg; smvc alio REMs konnen 
weggelassen werden. Die Zeilen 1210-1225, 2950-2970, 
4005-4020, 405b 4070, 6500-6570 K.cnnen mil »EDJT«:mit 
grander len Ze lemummcrr. r=r.hno.! gr.^oh-ie^en werden. 

(P Bergen) 
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5 REM Be. 

7 GO SUB 5400: INK 0: PAPER - . 
: INK 8: CLS : PRINT .WJVff. B 

9 PRINT 

11 PRINT "Dieses SpisL siiftuUe 
n tintn Ge Idsoia lau tomaten . 

Ge-i 



13 PRINT 


Jeder uaLzenlauf kos 


t*t o.iaoH. 


Der Spiels tart C=a L L 


e 4 uaueni 


Kostet daher 0.40DM. 


oanach nan 


jade Uaize einiein n 


aC ii e ppiNT e 


werdan (-0, 10DM) . " 


Der Gewinn vsrringer 


t sich nach 


jedem Nachstart von 


3.00DM urn je0,30DM. Kann Hein Se 




werden, ist der bis 


dahin'in- 


asitiefis Einsstz ve 






17 PRINT 


UOF jedar Nachstartm 



Kpot-Fun 
S Symbol 



31 PRINT 
Oder a lie 
ird der 
33 PRINT 



yisibol der JacKPO 


gewonne 


ste) " 




36 PfiUSE 0: CLS 




37 print "Jeder Gewinn, d 


hon * initial gewonn 

St 1,00 DM RbZUS 




OBI JaCKp 


3S PRINT 




39 PRINT "D>« Sy 


bo La >Sr 


n< Oder >-l*sou>ie 


eren Far 


ossen KainenGewinn 


ays. Ein 


ppal-gsminn (glei c 


as symbo 


Lei Chi Far- be) gi 


at es nic 


4-1 PRINT 




43 PRINT "MinuSUI 




PuruteXontosowie die Jackp 


sioesung be-endan 

45 PRINT 


as Spiel 




47 PRINT 




49 PRINT 




SI PRINT " 


Und nun 


Spassi 




E3 INPUT "Uievie 


Spieler 


oder 2) "; p l 




Basic- Li sling »Bingo« 





ingo-Jackpot 



pot 



110 FLASH 



ROER 0; PRPER 7: i 

PRINT RT 10,7; " B 
in warden i ■■ i FLASH 
1000 DIM aS<33,4)i GO SUB 8005: 
GO SUB 5500 

1005 REM Definitionen und Spiel 



1010 LET St 



LET ki=0: I 
. ._=1000: LET L 
ET plPBSll LET 



ET JaCK=0; LET plpaSll LET JP=0: 
LET aeld«1000: PIM K (4? : (JIM i( 
4) : DIM I (4) : DIM IB (4) 
1013 IF pLal THEN LET ple=1500: 
LET g*Ld=1509 

1015 PAPER ffl: CLS : GO SUB 7310 
1020 GO SUB 7070 
1025 IF pl = l THEN LET P lp.7 
1030 REM NeudurchLSUF 
1035 LET geulinn=2950: INK 8; GO 
SUB 7000: GO SUB 7100: GO SUB 71 
70 



104-0 



IF geld<0 THEN GO TO E0i 

iC SUB 3215 

'APER 2: INK 7: GO SUB ■ 



1B55 GO SUB 3100 

1060 REM 4*Uallen 

1065 GO SUB 1405: 

=1: GO SUB 3065 

1070 LET « = 12: ' ' 

065 

107S LET e=17: 

065 

10S0 LET 4=23: 

065 

10B5 IF JacK=l THEN GO TO 4350 

1090 GO SUB 2000 

109S GO SUB 1430 

1300 REM Nachstart 

1206 PAUSE 



S: L 


ET ■ 


=7: LET j 


LET 


j=2: 


go sue 2 


LET 


j»3: 


GO SUB 3 


LET 


J.-4: 


GO SUB 2 



1210 IF INKEVtc'l" THEN 


LET e=7: 


LET j=l; GO 5UB 2065: 
00: GO TO 1095 


30 SUB 20 




::■:.::■ v :. ■■ ■:: .■ .■ .-■ --■ v:- : . 


LET eal2 


: LET j=2: GO SUB 3085: 
000: GO TO 1095 


GO SUB 2 




1220 IF INKEVJ="3" THEN 


LET e-17 


: LET J=l3; GO SUB 2065: 
000: GO TO 1095 


GO SUB a 




12E5 IF INKEY*="4" THEN 


LET a =22 


: LET J=4: GO SUB 2065: 
000: GO TO 1095 


GO sue 2 




■_SJ,3 
35 
1235 GO TO 1095 


GO TO 10 




13O0 REM ErLangte Symbo 


L- und Fa 


r ben kyriibi nation 




1305 LET b=l 




1310 FOR a*l TO 25 STEP 




1315 IF d=a THEN LET K C 




1320 LET b=b+l 





1325 NEXT 3 

i.I-32 FOR a*3 TO 6 

133= IF c=a THEN LET 

1340 NEXT a 

1345 RETURN 

1400 REM start taste 

1405 PRPER 7- INK 2: 
,7jz«: PRINT AT 21..?, s 

" ; PAPER 0: INK 7 
1410 PPUSE 0: IF INKEVJi 

RETURN 
1415 GO TO 1405 
1430 PAPER 7: INK 2: PRINT AT 21 

,7,-Z(;RT 21,7; "l-4x start, e= en 
1435 RETURN 



PRINT AT 21 
" a = Start 

THEN 
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2000 REM GewinnabUstung 
2005 FOR a=l TO 4 

aeia if k tai =s of? k (sj =? then le 

T jp=jp+10: BEEP .05,10: BEEP .0 

5,38: LET ki»4: GO 3*JB 221S 

2015 NEXT a 

2023 FOR 3=1 TO 4 

2035 IF k(a>*8 THEN GO SUB 2900 : 



2036 IF I 
£040 IF I 
P.NO I ' ■ ' 



THEN GO TO 2050 

= k i2j AND * £1) =k 13 

' "HEN GO TO 2125 



204E 1= dill =i IS.' hND i ... 
RND i ili =i (4) THEN GO TO 2100 
2050 GO SUB 2900 
2055 LET ki=0: RETURN 
2060 REM '- 



TURN 

2070 STOP 
2100 REM 9t 



EN GO SUB 4100: GO TO 2145 

2115 IF i £1) =<a+2i THEN LET I (a) 

a*j GO SUB 4000+ia*5): GO TO 214 



2120 NEXT 
3125 FOR a 
2130 IF ■ ' 



TO 4 

:a AND m ia> =2 THEN 

SUB 4100: GO TO 2140 
2135 IF Hllj=a THEN GO 5U6 405- 
ia*5l . GO TO 2160 
2140 NEXT « 
2160 GO SUB 4200 
2166 FOR a=l TO £0 
2170 BEEP .01, a 
£175 INK 5 

2160 FOR 4*1 TO 21 STEP 2 
2185 BEEP .01,8: PRINT RT 3,1; 

£150 NEXT a 

£195 PAPER 0: PRINT RT 4,7;z» 

2300 GO SUB 3500 

2310 GO TO 1035 

2315 PAPER 7^ INK 2: PRINT RT ' 

2220 RETURN 

2900 REM 1 sturs uemger 

2910 BEEP .2,-30 

let ge«inn=g«winn+2 

2922 PRPER 6: INK 0: GO SUB gei 

nn-2 

2924 PRPER 2: INK 7: GO SUB gti 

3830 RETURN 

2947 REM Bank 

2948 GO TO 2950 
3950 PRINT AT 0,1; "3,00' 
i" 18* ": LET fa300: LET 
TURN 

2952 PRINT RT &,x, 
... 8jf ... LET r - 3 ^7 
URN 

2954 PRINT P.T 4,1; 
; " 8* " ; LET r=£40 
URN 

2956 PRINT RT 6,1; 
; " 7* "i LET F=210 
URN 

2953 PRINT RT B.lj 
; " 6* "; LET F*180 
URN 

2960 PRINT RT 10, 1 
28; " 5* " : LET f = 1! 
ETURN 



RET 

'ft!? 



RET 

IB, 
5: R 



2953 PRINT 


RT IS 


l;"l, 20" 
120: LET 


RT 


12, 


28; '■ 4* " 


LET f 


S=4: R 


ETURN 










2064 PRINT 


RT 14 


1; ,, 0,90" 


RT 


14, 


38: " 3* " 
TURN 


LET f 


90: LET 


=3 


re; 










2966 PRINT 


RT 16 


1; "0,50" 
60: LET 


RT 


16, 


23; '■ 2* ": 
TURN 


LET f 


IBS 


RE 










2968 PRINT 


RT 18 


1; "0,30" 
30: LET 




'fe 


38;" 1* ": 
TURN 


LET f 


Si 










2970 PRINT 


RT 20 


1; "0000" 


RT 


§!t 


28; "©eoa" : 


LET f 


0: LET i 


«3: 



£972 GO SUB 5300: LET g«IUinn=295 



£973 IF Jatk=l THEN GO TO 5000 

2974 GO TO 1035 

2930 RETURN 

3000 REM Finanzragelung 

300S IF pUl THEN GO SUB 3300 

-'»-•» THEN LET pL«=geld: 
GO 5UB 3210: RETUR 



3100 REM SPte Lerwachsei 

3105 IF PL»1 THEN RETURN 

3110 IF plp=7 THEN LET pLp=21: L 

ET gatd=pi.Z: GO SUB 3£00: RETURN 



31E0 GO SUB 3210 
3125 RETURN 

3200 INK 0: PAPER 6; PRINT AT 
" l.SP. "; PAPER 2; INK. - ■ 



4^ i j RT ■ 
0; " 3.3P. " ; RETURN 
3305 INK 7: PRPER £: PRINT AT 0, 
5] " l.SP. ", PAPER 6; INK 0;RT 
,30i " 2.SP. ■": RETURN 
■US ftEM hs 

3215 IF geldihs THEN LET hs=gaLd 

3220 PRINT PT l,14;hs 

3223 RETURN 

3300 REM BeidausdrucK 

3305 PAPER 7: INK 0: PRINT AT 1, 

plp;gai.d;" ": RETURN 

3600 REM Gambling 

3505 PRPER 0: PRINT RT 21,7;zi; 

PAPER 6; INK 2;AT 21,7;"R = Ri s i 

ko , S = Stop" 

3510 IF INKEYJ="£" THEN LET geld 

=geld + f: GO 5UB 5100: GO SUB 300 

0: RETURN 

3515 IF INKEY(="r" THEN GO TO 35 

25 

3520 GO TO 35 10 

3525 LET r = INT (RND*10>+1 

3530 IF r<7 THEN : PAPER 2: INK 

7: let geuiinn-geuinn+2: beep .1, 

-20: GO SUB gewinn: PRPER 8: INK 
0: GO SUB tgeWinn-2! LET f = f -3 
0: LET s=i~l: GO TO 3500 
3535 PAPER £: INK 7: LET gswinn* 
geuUnn-2; BEEP .1,£0: GO 5UB geuj 
inn: PRPER 5: INK 0: GO SUB igew 
inn+2J: LET F=F+30: LET £=£+1: G 
TO 3505 
3540 GO TO 3500 
4000 rem jP-Utrua Ltung 

4005 INK3: PRINT RT 13,8, "■" ; A 
T ia,B;'W': LET 1(11-2: RETURN 
4010 INK 4: PRINT AT 1S,13;"M"; 



aS§fe< 39 
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4055 INK S: PRINT RT 15.8: " fiB 1 
T 16,8;"SH": LET m[l>=2: RETUf 
4-060 INK^: PRINT AT 15," 



ETUR 



4065 INK ■ 

INK 2, AT 
: RETURN 
4070 INK '. . . 
AT 16,23, "SE" 

4075 RETURN 

4100 REM JP-DopPfi I 

4105 FOR a=l TO 20 

4110 BEEP .01,30: PAPER 2: INK 7 

: FLR5H 1: PRINT PT 6,7;" 100 "i 

AT 7,7; "Abzug"; AT 6, 21; "flbzug' 1 ; R 

T 7.31;'' 100 ■: BEEP .01,10 

4115 NEXT a 

4120 LET jpijp-100 

4125 FLASH 0: GO 5UB 2215: GO SU 

B 7340 

4130 RETURN 

4200 REM JaCKpOt VOLL? 

4202 IF L tlJ +L 12J + 1 (3! +1 (4) =8 TH 

EN GO TO 4300 

4205 IF m il!+m i£)+m (3! +m C4I = 5 TH 

EN GO TO 4300 

4210 RETURN 

4300 REM JP-Aus loesuna 

430S LET jackal; INK 5 
4310 FOR a=l TO 21 STEP 2 
.31S SEEP .01, a: PRINT AT a,2S,'" 

4320 NEXT a 

4325 FLASH 1: GO SUB 7240: FLA5H 

0: 00 5UB 5400 
4330 GO SUB 3503 
4335 00 SUB 7100 
4340 IF 8(8 THEN GO SUB 5300: GO 

TO 5000 
4345 GO TO 1065 
43E0 GO SUB 4370 
4355 GO SUB 2920: LET sxS-1 
4360 GO TO 4335 
-:-"3 FOR b = l TO 4 

437B IF K lb) iS OR k <b) =7 THEN LE 
T geld=ge Ld+jp: GO SUB 5400: GO 
SUB 3000 
4330 IF Mb) =5 THEN GO SUB 2300: 

LET s=a-l 
4335 NEXT b 
4390 RETURN 
5000 REM ENDE 

5005 PRPER 6: INK 0: PRINT RT 10 
.7;_' 1— . ";RT 11,?:_J " ; AT 12,7 
\ " r ,fiT 13,7: - — 
5010 PRPER ' 



5015 PRPER 5: 
- "; RT 11,17; 

T[";AT 13,17; 

6020 PAPER 3: 



R 4: 'PRINT AT 10,12. 



; AT 12,12 



3024 NEXT a 

5025 PAPER 2: INK 7: PRINT i 

,7; " Noch einimai? i j/n) " 

5030 PAUSE 0: IF INKEY(=" J " 
GO TO 1010 



Bingo-Jackp 



BEEP 



5035 STOP 

5100 REM Mt LQdi«n 

5103 BEEP .1,0: BEEP .1,0: I 

.1,0: SEEP .2,5; BEEP .2,9 

5110 RETURN 

FOR a=l TO 50: NEXT a 
5302 BEEP .2,5: BEEP .2,5: BEEP 
.1,7: BEEP .3,9: BEEP .1,5: BEEP 

.2,7: BEEP .1,4: BEEP .3,5 
5310 RETURN 

54O0 BEEP .2,5; BEEP .2,5: BEEP 
.3,7: 5EEP .3,5; BEEP .2,14: BEe 
P .1,14: 6EEP .35,14 
S410 RETURN 
6000 REM Uaizenstaueruna 

6005 FOR a=l TO 20: NEXt a 

6010 LET v=INT <RND*27) -4 

6015 FOR d = l TO 27 

6020 LET C=INT (RND*4) +3 

6025 PAPER C : INK 0: PRINT RT 10 

' ; AT ll,e , as (d+l) ; AT 12, e 



a«(d+2) ; AT 



d+31 



L.2) = 



6030 IF dtv THEN GO SUB 6050: GO 

TO 6050 
6040 NEXT d 
6045 GO TO 6015 
5050 PAPER 0: PRINT AT 21,7;z» 



6502 LET a> (2) 

6504 LET a«(3) 
5506 LET 3JC4) 
6-510 LET at (5) 
5512 LET aS!6i 
6514 LET a 1 17) 
6516 LET a$ «8J 
5520 LET s« iOI 
6522 LET ■ 
6524 LET . 
6526 LET i 
6533 LET a»(13) *" 
6532 LET a*(14) = " 
6534. LET t 
6535 LET i 
6540 LET i 
6542 LET . 
6544 LET ,._ 
6S46 LET a 3 
6550 LeT a! 
6552 LET it 

6554 LET »i 
655B LET a* 

6555 LET , 
5550 LET - 
5562 LET . 
5564 LET . 
6566 LET . 
65SS LET . 
6570 LET a* 
6580 RETURN 
6 992 STOP 
7000 REM SpiC Lf* Id 
7010 INK 0: PRPER 6: 
7020 FOR 8=0 TO 20 STEP . 
7030 GO 5UB 2958+a 
7040 PRINT PT 3i-l,l;"Hi 
7050 NEXT a 
7050 RETURN 
7070 PRPER 6: INK 0: PRINT AT 0, 



*f CIS! i 

axis) = 
ajtl7)= 



a»(24) .' 
a£(25)-' 
a£(26) =' 
ai(27) =' 
a»i2S) =' 



if 



6; " 



■ . 



_.5P. _ 
PAPER 0; INK 



■jrt^^s 



40 dSfe 
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7100 PAPER 6: INK B 

7105 TOR a^7 TO 22 STEP 5 

'.-'113 FOR b = 10 TO 13 

7120 PRINT AT b,a;"JW 

7130 beep .aa.b-ia 

714.0 NEXT b 

7150 NEXT a 

7133 "flPER 7: INK 

7160 RETURN 

7170 SO SUB 724-0 

7180 PAPER 6: INK 0: PRINT RT 6. 

13^\JflCKPQT"; INK 7; RT 7,13j"Mi 

7190 LET z«=" 

7200 RETURN 

7210 PRPER 0: INK 3: PRINT RT 13 

,8,"rTLilRT is.arLl"; ink 4; at i 
8, 13, '*W" ; fll i £", INK s; R 

T 13, 16, "rt"i_QT 19,18T"L4"J INK 
5;AT 18,23; "H"; AT IS i -. 
7220 PAPER Sf: INK 6: PRII" 

,8;"aS";flT 16,3; "£a", ink 3;RT _ 
5,137™ SE"jflT 16,13:"£H"; ink i;A 
~ 15,15; "jk"; INK 2;fiT :" ' 



INK 3: 
II 1W,3;"L|" 
jflT 19 , tST "I 

" "^; "fab j urn 
7220 PAPER 0: INK 6: PRINTTT IE 
:"!HT IF " 

ft" ; 31 

;;.; at' is' 237 Icnk"*; "hm"; at" lB^aaT 

7550 return 

724.0 prper 0; ink 6: print at b, 

7; "SS SB"i RT 7,7, "ST ST": AT 6,21 

' "SS SS^'WT 7,21; "11 SI" 

7250 RETURN 

3000 REM USG 

8005 FOR a^USR "A" TO U5R "U"-l 

3010 READ b: POKE a , b 

3015 NEXT a 

8050 DATA 1,1,7,14,15,27,24,31 

8025 DATR 123,158,96,176,284,130 

.216,176 

8030 DATA 27,31,21,15,11,7,2,3 

5S3S DmTR 2iS .216,24.8,176, 112,23 

4,123,128 

3010 DATA 0,3,14,29,29,59,50,58 

8g45 |r DRTA 0,54, £40, 246, 248,232, 2 

^§^9,14,3,1 



63,0,0, 

3070 DATR 25,53,111,95,127,63,63 

,15 

S075 DATA 123,192,224,224,224,19 

2,192,0 

B080 DATA 0,0,0,0,0,14,27,55 

B09S DhTR 0,0,96,64.123,240,246, 

252 

3090 DATA 55,127,127,127,63,31,7 

,0 

8095 DATR 252,254,254,254,252,24 

8,224,0 

3100 DATA 3,13.17,39,95,91,152,1 

7B 

B1S5 DATA 1S2, 175, 136,228,250,25 

,77,77 

B110 DATA 242,242,115,79,47,18,1 

3,3 

8115 DATR 79,79,30,250,225,168,4 



Basic-Listing uBingo- (SchluB) A 



VWnftW, 


BINGO 


JfiCKPOT AVWVW 


Dieses Spis 


I 5 










.cm. 


ten. Ura air 












«?;- 


che Sum! 




























Der Spii 








































Der Gewi 










a,30DM. 
































nsi 




























lltt 


mi 











rd 








sae tz Li ch vtrringafl ■ 












hunfl durch RisiHo raoegli 


h 




jacKpot-FunKtion 








0- 


















4 Synbcie gtuionnen, irnrd 


dsr 




















da ran Htizahl von dem Gem 





































Hardcopy der Spielanleitung (rechtsj ■> 



sder Gaojinn, der schon einmsL 
ewonnen wurde, bring t 1,00 Dm 



Di e Sambo La >Gr >: 
sanij deren Fan 
Geu'inn aus . Eiru 



merit aur" ainem PunKtaKo 
die Jacspai-AusLoesung 
das Spiel. 
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Spectrum 



fc\o9° 



-J» c 




Bingo-Jackpot 



2065 3010 3C 


16.3110, 3115, 321S 


3305 




-wSrfl 






(1035, 1050, 2205, 2920, 2922, 2924, 29 




3530, 3535) 














3 2 SO) 








3110. 


2115) 








- Symbolpositfc 




1080 


1210 


1215, 1220, 12 


5. 1315, 1335) 






- JacKp^teuszi 


li'iqs'Kemi^ichrHin,- 


1010 


1065, 










mSSwSS 


varlable(101D, 2010 


2025 


2040. 


- Gewinnstop b 


^sr* o(fec *~ 


.(101 






variable (1010, 2110. 


115, 4005. 












variable (1010. 2130, 














= Spieleranjahl 


S3, 1012,1025.300 






)SHion(1010, 1025,3 






3110, 3115, 3305] 






= field l. Spiele 




115) 




= geld 2. Spiels. 


(1010.3015, 3110) 






= Amahl der So 








3535. 4340. AC 








= Zufalisvariable 








(6010. 6030) 









GsmnnermittlunB 

Aufruf des Gambling (3500) 
2900-2930 = 1 Gewlnnstufe weniger 
2948-2972 - Gewinnbank In Form Kleiner 
3000-3015 = Finanzregeiung fur zwei Spk 
3100-3MO = Spieletwechsel 
3;'<i0 3205 = Vfechselanzeige 
3?10 3225 - nighscoroaniPkje 



6500- 
7000- 
7070- 
7100- 



- JP-Aus7anlung 






■5035 - S. 

5035 = M 

6065 - V, 

6580 => V, 

7065 » G 

7160 = K 
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Sinclair 




Hier sind Sinclair-Clubs, 
die Ihnen Hilfe anbieten 




SBC Sinclair Benntzer Club 

Erika HOischer 
Bjiisl-^LLcaist-Str. 5 
2730 Zeven 
To!. 04381/6442 



n-tlser-Club Heidenheim 

Bi(;ii.-:;ira(5e 3 

7922 Herbrechtingen I 

Sinclair Spectrum User Club 

Trnrr-itcn Hock 
Elbestr. 101 

?.S'60 B-;t-jmerhaven 



Spectrum-User- Club 

Rolf Knonre 
Posrmdi 200103 
!.B';0 VVuppertal 2 
Tel. 02C2/556689 

Spectrum-Club Hagen 

Geld. Sannenhol 
Lonsweg 19 
5800 Hagen 1 

ZX-Spectrum-Userclub 

Grunstr. 5a 
4920 Lemgo 1 



Sinclair-Mikroclub 

Am Poizhain 3 

'1308 Neunir.rdLeii/Zeppenftild 

ZX-Userclub 

riledsnstr. 44 
4000 Dusseldorf 1 

ZX-Club Deutschland und 
Umgebung 

Anberl Deckers 
Postfach 967 
jUUJ Stuttgart i 
Tel. 0711/22 53 14 



DadieLeis1uti(j:;;.i-iact';oto ;>'":r"C:iib:;i]en.'iii:::o ■■.'!' T;;d'!iedovi si rid wiederen Org 

mehreren Clubs e:»:i.ir!;bq.::n. 

Auch ist dieiK :■ Cljblifsio sielietbdi nidi: voll:-;li.ii;diy. Doniiaib: ClubbTuiKjon. \.>,\\o Hidden. 



soliloii SicslcI"! nihigbei 
(ink) 



WITTICH 

Tel. 09443(453 





ROLF STRECKER 

ill o loo i""-: S. Co 'n putt 1 !' 

LLixemburgerstr. 76 

5000 Koln 1 

Tel.: (0221) 41 7789 



Multifile 



Mono 

Loistijrigsstarknr Iv1;ii":-o;.s:-;i..:i'':olor Disassembler 59.- 

Disass 

Disassembler mrt Anzeige in HEX. DEZ.. Memnonics 



Uber 280 Arlikel sn 

Spectrum 2jbeh6r jnd 

w^ww&i mibi Programmer!!!! 

Katalog geqen Uber- 
sendung von DM 3,80 

ir" l-i'iofrrait.'--;-! om.'jlti cb 



ZX81 



Handler-Anfragen erwiinscht 
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Spectrum 




Farbchaos am Bildschirm. Mit Uberle- 
gung und dem 16-KByte-Spectrum 
miissen Sie Ordnung schaffen. Mit 
seiner Hi-Score-Ta belle ist das Spiel 
»Babylon« ein toller »Abendfuller«. 



Babylon isl ein Strategic !-.:>.<;■ I fur erne Person. DasZiel ist, far- 
bige Kastchen am Bildschirm in cine bestimmte Ordnung zu 
bringen: Alle achi Fclcor siner "a-bc musseii nebeneinande- 
liegen; die Farbe rar die ,o-,vsilii_;-;-: Reme wird an der Seite be- 
stimmt. Man ort:nei die Kastchen irnl Hiiro c nc-s, blinkenden 
Feldes, das in viei I i.c.nlu.ngen bevvcgl wKRien kann. Versetzt 
maneszum Beispiel i.ru ein?; nach rechls ;;ann befindet sich 
an der urspmnglich 1 - ; rP.js.ii.o r idr-sc:!n'v-:-ideri Feldes die Far- 
be des Feldes rcchlr,dNvy.-. Aui dicsc Worst* kann man die La- 
ge der farbigen Kasichonveitiudem. Am bido des Spiois mud 
sich das blinkende Feid union rechls (auf dcr Position 8,5) be- 
f in den. 



Programmablauf 



Nach RUN sieni man auf dem Bildsohinn die Frage »Brau- 
chen Sie einc Anleitung? IJ/NK Wenn man »J« eingibt, er- 
scheint die Anleitung. Ein Druck auf irgendeine Taste genOgt, 
urn wleder zurr- Titclb.ld/u.'i.i;.-kzukc-h;eri. Dnickt man nun auf 
»N«, dann wird de,' B.idsr.hinr; gcioi-ci;'. u.nd das Spielleid auf- 
gebaut Nach kureer Zeit wird man auf gef order!, eine Taste zu 
driicken, und das Spiel beginnf. Man steuer! das blinkende 
Kastchen entwedor mil den Tasten 5 — links, 6 — nach unten, 
7 — nach oben und 8 — rechts oder mit einern Kempston- 
Joystick. Die Zahl e'er Versuclie wire zu jcdci Zeit im unteren 
Teil des Bildschirms ango?sigt. Dos Programm uberprul! nach 
jedem Zug, ob man cie Kaslchcr. in die licbtigc- Ordnung ge- 
bracht hat una bcerxle! das Spiel, falls man es gesehaflThat 
Darauthin etscheint en I we der sofcr" die Hi Score-Tabelle Oder 
die Aufforderuna:. o-.nonNamen eii:;ugei;e.n :e nachdem, wie- 
viele Zuge man bendtigt hat. (Am Anlang des Spiels durfen es 
hdchstens ?50 sen. m oinpn der fiinf besten Platze zu errei- 
Chen.) Sobald cio Hi-Score-Tabollo aul dem Bildschirm zu se- 
hcnisl, erhaltmanfiiirchder Drnok "iner ; aste wiederdas Ti- 

telbild. 
Da das Programm fur einen 16 -KByte -Spectrum geschrie- 

ben ist, kann es Probleme mit dem Speicherplatz geben, wenn 
man versucht, die Anleitung zu lesen (cs o'scheint die Febler- 
meldung »Oui of mcrnorv.:;. In diesem Fail muli man alle REM- 
Zeilen und ewiiuell seibsi i.in'.^iugto Zoncn entfemen 

Wenn nur ein Sanvva.-zwr.iiJFornser'er zur Verfugung steht, 
gibt es die Mogich-.eii die Farben in Zs-;iln r<050 zu andem. 
In dieser Zeile stchi iede Zahl fur r-ino Farbe. Brauchbar ist die 
Kon-.biriiiBon 0, 2, 3, 5 und 7. 



,„-„,,.,. 


(33700 bis 32 


56) 


ZK 


r „- 




^7™™™ 


raSerf 




etmen 


120- 180 










2Q0- 220 


Spidtold wird g. 








2000-3190 




FarBen 






4020-4^10 


VBrarbBitung de 


E&igabe 


nwShre 


ddea 


7000-7030 


Erdedes Spiel 








aooo-aseo 


^^; 


ss 


^ a ™ 


kdBTW- 


9000-S150 


Anleitmiy 










Das Listing 



Das Us'.ug b!i;,::;hl nut- zwei l-ioutinen: 

1. 9C40 — 9C4F Routine [Qr Bordereffekte 

Im Programm Babylon steht diese Routine von 32700 bis 
32715. Sie di«nt dazti. das Prugramrr du.-c.i Ijerdemrafikrm 
interessanter zu v^sia.'ien Man emali rrdi: Efrckle al's die im 
Programm verwendeten, indem man den Wert des B- 
Registers verandert. Fur den Benutzer von Babylon bedeutet 

POKE 32701, x : PAUSE 10 : RANDOMIZE USR 32700 
(x ist eine Zahl zwischen und 255). 

2. 9CSO — 9C77 Routine zur Oberprufung der Lage der Fel- 

Diese Routine nimmt die Farbe eines seitlichen Feldes und 

vergleichtsiemltdsnTadjen der ubrkjKiFeldor dieser Reihe. 
Wenn die Farbcn in nlis: i lieiher. n-fitig geuidnet wurden, wird 
die Lage des blin.-.er:den Felcos n-: 



44 USS 



mi 



Spectrum 



REM 508i3 Ffiftl 



Die Matrix des Spielfeldes 

unten ganz rechts nsfiiiclei. fell iiie Routine eine Zahl, die un- 
gieich Null ist, in die Speicherstelle 32760. Diese wird dann 
durch das Basic- Prog ram m abgefragt. 
Im Pragramm Babylon s'.ehi die Rojline von 32716 bis 

(Eva K i re liner) 



, ,90,233 , 1; 
'lSl i FOR 



bl^l: LET ' 




00: IF IHKEY 

THEN GD SUE ' 

IF INKEVfs"'! 



=2 : GO TO 2170 
3 STEP 3: PRINT 

5-; r, EINE TASTE D. 
Basic-Listing "Babylon" 
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Spectrum 



2j.se poke 32701,4-2: 


RRNDQMIXE US 


R 32780 




2150 IF INKEYS="" T 


■1EN GO TO 219 







4038 PEN SPIEL 




4.028 PPLi.T HT i = . 3 . 






3I=l~0p" INKE 


':■ $ = "3" THEN LET ■■:=-■) 


+ 1: SEEP .01, 


10: GO SUB 4103 




4038 IF T'lKEYJ-" ■ 


JR IN 31=5 TH 


EN LET ■,■=-,■ + !: BEEP 


01,213: GO SU 


E 4.130 




4040 IF INKEV* = "6" 


JR IN 31=4 TH 


EN LET v=V41: BEEP 


01.. 30. GO SU 


B 4-1S0 

-•.060 TF TrJt-.FY *="!=." 


T ^ , 1 __ T 





.;050~IF INKEv$="5" OR IN 31=2 TH 








& 4190 




4060 RANDOMIZE U5P 52716 IF PEE 




b 52763 --.O THEM CO TO 7808 




+070 GO TO 4820 ■ 




4108 IF bl=8 THEN RETURN 




4110 POKE ;.5r.5:..E.!.3l.ii + l ■ PRIr-, 




T HT jHJ + 1 , bl*3 + l. ■ '.AT i!v34 




S,bl*j + 1.- . POKE 23603 z+3+19 




9: PRINT P.T jitJ + l^tlrJH-4.,"B B ",H 




4120 LET ' b ial, bit =b ial,bl+lj . LE 




r - i si. \-.l .i. =2 = 4 PC!-. 3 23693,120 




■ LET bl=bl+l RETURN 




4130 IF = 1 = 1 THEN RETURN 




4140 POKE 23693 , 3 i.a 1-j. . r.J., ■ pftIN 




T rt ei 1*3 :■!, iHi- 1; ' 5 AT al*:j + 




2 . --lT-3i_. ■■ P'O-.E 2 3--3j. . z*3 + 19 




9: PRINT HT =.1*3-2 . bl-3-I. ' — ■' . P; 
1 i !■«:.:■- 1 , blu-j + lj "™"' 




4158 LET t, ;■=! ::3. ^Ul-l.blj; LE 




" bsl-1 3,- =254 :■:.-■ E 2359-. 120 




: LET 5 1=3 1-1: RETURN 




4-150 1= :,.i. = 5 THEN RETURN 




4170 POKE 23333. b dl+l.bH PP1N 




7 RT ; 1*3+1 . b 1*3 + 1. ■ ■ , HT a 1*5 + 




2 . b. 1*3 + 1. " - . POKE 236 03 . Z *3+19 




9 PRINT hT a 1-5+4 . bi+5 + 1. "«" : fl 
T al*3+5, bl*5+l: '■— ■" 




4158 LET b 3sl . bli =b i 31+1 . bl.i : LE 




T 3 i Sl+ I . :li =2 54 POKE -J :.693 . 120 




: LET al=al+l: RETURN 




4190 IF bl=l THEN RETURN 




4538 POKE 23693 .:;■' S_ .::■! --.[ : PRIM 




T v\T al+3+1 . bl*5+l. " - . HT 51*3 + 




2 . blrS-H: " " ■ POKE 23693.1*3+13 




9: PRINT AT 3 1 + 3 + 1 . bl*3-2; " M " . Pi 




T .a 1*3 + 2, bl+j-S, "■""" 




4213 LET b i.al . bl) =3 i.sl . bl-U ■ LE 




'! ■:■ ■ = 1 . 3 1-3. --234- PQt 3 2535 3 . L25 




: LET bl=bl-l: RETURN 




S999 REN , f i i i. , i. ;_ z u £n.>: 




7303 I-HU33: 10. ■-■PINT H f 19.6. "E:. 

-i-: 7 si ■.■:. di i3: 'civ pK.'it :'!:::= U5 






P 32700 




7805 EIRDEF 3: FOP i" =3 TO 21: PR 




INT AT F,0; PAPER 0; " 




": PAUSE 2: 




NEXT F 




?3 13 PHU5E 5 




7353 FOR f=2 1 TO 3 STEP -1: PRIN 




T AT f ,0: PAPER 1; " 




": PAUSE 2: N 




EXT ! 




3083 PEN HIGH SCCPE TABLE 




5053 INK 6 PHFEP 1 -■■■ I5HT 1: C 




LS 




684.5 PLOT 6.3- DPSU 239,0 DRhM 
3 . 16 9. P-RHU -239 . O 3PF4- . -159 






PLOT 5,6 DRAU 243.ii- dRhI.j 0.16 




3: DRHi,.: -245 3 DRP.U 3 . -155 




6050 4^ ','s'jhL (hSiSJ HI TO )) TH 




EN GO TO 3190 




5363 PRINT AT 5.3: ,, Gtben 5 i e ihr 








5373 PRINT HT lg . 13: " 

60:50 PRINT AT 2,ll; INK 5.; FLASH 









5110 print HT 5,3; "besten Pla> 

Silo' LET 'ia = '"' 

5158 PhUSE 0: If CODE INKEVi:-- 

flf.L' 3L.73 lr-.i E-.- ~::l2c ruEN LE : 



3165 PRINT AT . 





RESTuRE 6050 




BE 


EP a 


b: NEXT f 






3245 








5250 




1: IF INKE 


f$(> 




iEN GO~TO 113 






5268 


NEXT ! : GO TO 


6230 




9080 


REM ANLEITUNG 








OUT 254,3: INK 3 




9010 


PRINT RT 12,3 






9020 


PRINT HT 10,3 






9030 


PRINT HT 4,3. 






9040 


PRINT AT S, 12 






9 8 EC 


LET tS="BfiBYL 






ate.9 


S- 5-Pie I fWS 


eine Per 








gen Kaest 








g Zuagen 












ner Fsrbfl in 






9060 


LET ts=ts+"ei 






en. Arii rechten Ran 


uj i r d die 


Far 






ge Reihe 




i r.i ffi t 


as blinf.ende 








a rn Endi unten 






dem paid C3.5J bti 






5070 


FOR f=4 TO IS 


PRINT AT 






F-41 $28 + 1 TO 


f -3J *2S! : 


NEX 










5050 


PRINT HT 16,3 


■'5 - tiflK 












9090 


PRINT AT 17.3 














91S0 


LET t$=" BRBVt 


ON " : LET 


t*= 


t$ + t 


+t*+" " 






9110 


FOR f=l TO 23 


PRINT AT 




si If 


K RNC>*6; tiff + 


TO 23) i t 


il"' 










9123 


BEEP .01,3: BEEP .01.40 


BE 


EP .01,-15 






9130 


IF INK-EY^O'"' 


THEN RETURN 


9140 








9150 


GO TO 9110 






Basic-L 


sling »Babylon« (SchluB) 
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Spectrum 



Eine kniffelige 
Sache 

Kniffeln ohne Schummeln, ohne Blei- 
stift, ohne Zettel und Verrechnen: Ihr 
48-KByte-Spectrum sorgt fur einen rei- 
bungslosen Spielablauf. 

Ziel des Spieles ist es, wie sollte es anders sein. am SchluB 
diemeisienPunktezuhaben. I~feu merlon So oioiehzoiliy iij'-|i 
Wiirfel. Gefallt einem der Wur! nicht. so kann der Spieler be- 
stimmte Wiirfel o-::ei -ill;; nciu fallen lassen. Dies geschietit 
durch Driicken der' VVu-ftnu'rin-H-?; und -N--. Spatestens nach 
dem diii'an Wur! ist jedoch die Wertung vorzunehmen. Soil 
kein Wurfel neu falion. clann start =N>; run »Q« fasten und die 
Working eingeben. 

Die Eingabo dor Worh;n;; erfokii Obe:- die iasien 1 bis D, die 
Bewertungskriteriun erlajter! omb P-(x:r;-imsn am Anfarig. Je- 
der Spieler rLihrl \3 Weriuicen a..s. ooivi oriolgi die >»Abrech- 
nungs und Naiiio-ia^/oiiurii.; mit tEhrung*. 

(Josel Kastl) 




Variable nia belle 






1 2 3 


* 


Taste) 




















S?HSf ■ 






























K.L. sir. 
Gr . Str. 
KNIFFEL. 
























B i 1 t e viu 




E13 



Fertig zum erslen Wurf 




Kein toller Wurf 
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Spectrum 



a 


REM 






3 


REM 




Josef KRSTL 


4 


REM 




Si r\ i. in -3 a? 


S 


REM 




34S5 Neustadtv 


Don-j 








6 


REM 










XXX 


X X UARIABLEND 


EFINITION X X X X 


X 




LET 


SPi i0 




IB 


LET 


SSS = 






DIM 


t (4) 




IS 


LET 


t (1) =0: 


LET I (BJ =0: LET 


t i3 


s0: 


LET t 14) 


*0 


13 


LET 


wur f =0 




14 


LET 


Xx=0 




15 


LET 






16 


LET 


it* °a 




as 


LET 


b* = "" 




25 


DIM 


g (4) 




35 


LET 




LET g 12) =0: LET 


'3 Ji? 


=i3: 


LET $14) 






DIM 


X (4) 




29 


LET 


z 11) =0: 


-ET I ;a) =0: LET 




=0: 


LET z C4J 




3B 


DIM 


b (4) 




31 


LgT 




_ET bt£) =0: LET 


b(3 


=0: 


LET bC4> 


=3 


32 


DIM 


f (93) i FOR Xil TO 93: L 


ET f 


X! =0: NEXT X 




33 


DIM 


K (10) : DIM I 110) 




DIM 


o !5> 






GO TO 50 




*a 


REM 


XXX 


X LOESCMEN DES 


BILDSCH 


RMS X X 


< X 


42 
0; -^ 


FOR 


X=fl TO Z 


PRINT AT a+X, 


BEEP .ai,I: 


NEXT X 


44 


RETURN 




SB 


REM 




X X TITEL X X 








sa 


CL3 


: BORDER 


8 


S3 


IF S 


SS > = 1 THEN GO TO S00 


54 


PAPER 1; LET 


3=4: LET a=0: 


go sue 4a 




56 


PAPER 6: LET 


Z=ll: LET a =5: 


GO 


UB 40 




58 


PAPER 1: LET 


Z=4: LET a = 17: 


GO SUB 40 




59 


INK 


6: PRINT 


AT 1,2; ".JOE'S 



tiert : " 

53 INK 0: PAPER 6; PRINT AT 14 
,S:"K.",HT 13,9;"N",mT 12,12, "I". 
AT 11,15;"F";AT 10 , 13; "F" J RT 9.2 
1; "E" : AT 8,24; '■L' 1 

64 GO TO 67 

65 PLOT xa,Xb: DPRUI -15,0: DRA 
U 0,15: DRAU 15,0: DRHU 0,-15: D 
RAW 3,3: DRftiJ 0.15 '-LOT xa,Xb+l 
5: DRhU 6,3 C-RhW -15,0: DRfiU -S 
. -S: BEEP . l,xa/3: RETURN 

S7 LET xa=30: LET Xb=30; GO 5U 
B 65: LET Xa=80: LET Xb=100: GO 
SUB 65: LET xa=200: LET xb=60: G 
SUB 55 

70 PAPER li INK 4: PRINT AT 19 

73 GO SUB 5000 

76 PRPER 5: LET 2=21: LET a=0: 
GO SUB 40 
80 INK 0: PRINT AT 5,3;"Sind I 



5ie ' 

n Sic 

32 PAUSE 
84 IF INKEYS= 
THEN GO TO 100 



P.T ll' 5; "NEIN - 



OR INKEY*="J" 



bis er a t Le uertungan ge 
ben hat .'\;AT S,0; "Er dar 



ngabe geKen 



en Angaban sind 6' 

nil fe L (l. . .5) a Ls ay 



" ■■ >J •=- ■■; K e n Sie sine Taste ! " 
fl PAUSE 0: CLS 

AT 0,4; "Fo Lgende uert 



u :■■!■:- en _= ; 
3,0; "It 

BONUS 
ei , 144 : Dhmw 

■33 i-RINT AT l0,0;"3ti 



n Uuerfeln.": PLOT 0,33: DRAU 14 
6,0 

94 PRINT AT 15 , : "U<J t I -Haus ; " ; 
AT 16,0;"Es iiiu-:s^:n q i.e i chze i t i g 



3 IJuer- Fel 




uuerfet jewei 


































CLS 


PRINT AT 0,0 






1,0; ■Hier n 


-1 L ;- 4 :■. 


die Augenzaht 



eei 



str 



sen mind. 5 sein. Z.B, 1-2-3-4 
-5 --> 3a bZW. 40 PKtfi.": PLO 
T 0, 165: DRRU 203.0 

96 PRINT P.T S.0; "KNIFFEL: ", AT 

9 ,0; "hi le 5 uoer fe t muessen aLei 

che Augenzaht aur'weisen. --j 50 

PKta": PLOT 0,104: DRAU 64,0 

97 PRINT RT 12 , . '■ Cha n ce : - : RT 
13 , 0, "Hier ij.i i r d die Gesamtaugen; 
ah L gewertet . " : PLOT 0,72: DRA 
U 56,0; PRINT AT 16,0, "Jede uert 



Bfl Werdtnl": PLOT 176,40: 
8,0 

98 PRINT AT 19, B; •'BbSCh 



)RAU i 



ten und alter bis- hefigan 
e . Taste druekem " 


Spie 


99 PAUSE a 
100 REM 

102 REM X X X X EINGHBE 

HrlEfl X X X X 

103 _ET =aa-l 


« 



105 PAPER 5: LET L 

GO SUB 40 

110 PRINT RT 2.1;"U E R";flT 4,4 

; -<j e r s u c h t";ht 6,as;"s e 

I !■!■■ : RT S . IS, "£ L U E C K ■?■■ 
■ mi$, Ff ■ I «'«"« l*Jl X 2-ili". 

122 PLOT 0,0: DRAU 0,175: DRAU 
255,0: DRAU 3.-175: DRAU -255,0 

■ " '. PLOT :.,:■ DRAU 0.189: DRAU 



1 RT 0,6; "S P I E L I 
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nahi i*t"jflT ia,S;"aaf 4 be-aren 


590 LET iiKU^INT 1RND*6) +1 


-t . " 


500 GO SUB 1000 


132 INPUT "Wieviei spieler? ";s 


510 NEXT K. 


Pi 


S20 IF r=3 THEN GO TO 690 


135 IF spi>4 THEN FLA5H 1: PRIM 


640 FOP' xr.i TO 3 


t ht 15..S -Es Kcennen Uider nur 


645 LET n=0 


4" : AT IS , 5: "pe -strisri :j i *, £p i e Len 


550 PAPER 4: PRINT AT 21,0, "U61 


.": PAUSE 150: FLASH 3: LET S.pis 


cher .,.:ijk!- fe :. soil nsu fallen?" 




552 PAUSE 


140 FOR x*i* TO IS: PRINT HT x. 


555 IF INKEY*="1" THEN LET n=l 


5; " " : 


6S;. IF 1\\\-<L! %---■■ 2- : ken LET n=2 


NEXT x 


&:-.;-? ■;- :mney*="3" then let n=s 


150 PRINT AT 13,3j "Mi tspie l*r : " 


653 IF INKEY*-"4" THEN LET n=4 


160 DIM 3*14,9) 


859 IF :Mt;tV5 = ' £' :Mt"; LET ..=5 


162 FOP x = l TO spi 


660 IF INKEYI-"0" THEN GO TO OS 


it--: input "Name : "; ascx) 

167 PRINT RT li+2*X , 15; at (X 1 





561 IF Ii\K£Y :f = "r, ■ OR ITKEY t = "N" 


169 NEXT X 


THEN GO TO 675 


171 BEEP .3,3: BEEP .3,7: 6EEP 


56-: 1- r, ::■■:. F!.S r^.2 i-NZ- n ■: >3 A 


.3,10: BEEP .3,15 


ND no4 AND r, ; > S THEN PRINT RT 2 


193 REM 


i,0;"5ie haben faiscKe raste ge*j 


200 REM . X X X X PUNKTETHBELL 


ashlt": BEEP 1,3: GO TO 650 


E X X X X 


655 LET w Cn) =0 


210 PAPER 4: LET 1=21: LET a =0 : 


567 LET u= in-2,'3j *32 


GO SUB 40 


S63 INK 1; PLOT 243.177-u: DRAU 


230 FOR x=l TO 16 


-12. -■LC" 2491---J URHU ■;?,- 




22: PLOT ;-.C-,r?-u DRSIJ 0,-22: 




INK S 


260 NEXT x 


670 NEXT X 


:;70 P.-:INT PT 0,9;"l";flT 0,13; "S 


673 IF f=3 THEN GO TO 695 


■ : PT i3 . 17. ■'3" I AT a.SlJ "4" 


675 PAPER 4: FOR :<=0 TO 20: PRI 


230 PRINT RT 1.0 ;:nsir' PR IN 


NT AT X ,26; " " : NEXT X 


T "Zweier": PRINT "Df * i. ^ :" M : PR IN 


576 IF :<x = X THEN RETURN 


T "Uieref: PRINT "Fueri ft r " . PRI 


630 NEXT f 


NT "SSChSer": PRINT "ZK.SU." 


690 LET 0=0: LET p=0 


=■90 Pf.WT 'i--iich": PRINT "4-P 


695 PAPER 4: PRINT HT 21,0, "Was 


asch": PRINT "UOLl-H."; PRINT "K 




I. . air.": PRINT "Of . Str ." : PR IN 


697 >CP x = l TC'S SEEP .1,3: BE 


T "KNIFFEL": PRINT "Cance" 


EP .1,14: NEXT X; PAUSE 


300 PRINT ■'BONUS": PRINT "Ge&ani 


700 T.r J_r-.K.EYS = "1" THEN LET = 1: 




GO 5UB 3100 


"310 PAPER 3: PRINT AT 1,23; "1"; 

AT 2 .23. , '2" ; RT 3 .2.1, "3" . PT * , 23 . 
■■*' ; RT 5,23; '5".h- 6 . 23 ■ "S " . AT £ 


70S IF INKEY(="2" THEN LET o=2: 




710 IF rNKEY$="3" THEN LET 0=3: 


.23; "7".: h-iT 9., 23, ■■&■■; HT 9 . 23 ; HT 1 


CO SUB 3100 


0,23, ■'S" ; RT 11.23 "h'YRI 12. 23:" 
B",AT 13,23; "C" . HT 14,23;"D" 


715 IF INKEY«="4" THEN LET 0=4: 


SO SUB 310O 


320 FOR :<=1 TO 16: PRPER 6: PRI 


720 IF INKEY$="5" THEN LET 0=5: 


NT PT ',:. .3; "..."; HT X , 12; " . . . " .; PIT 


00 SUE 3100 


x , 16; '■..."; AT x.ao;". ..": NEXT 


72~- IF :nk.EY( = "6" THEN LET 0=6: 




GO SUE; 3100 


330 PLOT 0,120: 0*AU Io4,0; PLO 


~:_iS IF INKEY* = "T" THEN LET 0=7: 


T 0,112. DSHU 134, 0: PLOT 0,56: 


GO SUE: 320O 


DRAW 154,0 


735 IF INKEY(B="8" THEN LET 0=3: 


340 PLOT 0.40: DRHU 134,0: PLOT 


GO SUE 3300 


0,38: ORAU 134,0 IF xx = l THEN 


740 1= --hK.EYI = "S" THEN LET 0=9: 


RETURN 


GO SUB 3400 


360 PAPER 4: PRINT AT 18,0; "Es 


745 if I'Jke,'£ = "A' or.- :nket$= '.=r- 


spie Lt : " 


THEN LET 0=10; GO SUE 3500 


499 REM 


750 IF INKEY5="B" OR 7I-.-.F-, ■;. _ ■ : , 


500 REM X X X X X 3PIELABLAU 


THEN LET 0=11: GO SUB 3600 




7?F I- :\IK.E- £ = ■'-■■ OP ;-.NS.tvs= ■■: 
THEN LET 0=12: GO SUB 3700 


501 REM 


510 LET aspi-aspi+l 


76,0 IF Ir.Kz' !E=' 0- OP 1 M-vEY ?;= ■ ■: 


515 IF aS.pi.SSPi THEN LET aspi=l 


THEN LET 0=13: GO SUB 3300 


520 LET mur F=»«r F41 


765 IF 0=0 OR 0>13 THEN PRINT A 


530 IF uurf ;13*spi THEN GO TO 4 


T 21 .0: ■ 6i;- n i^n >~ = .:-,.? "=it; 




as^shi.V: SEE- 1,3; GO TO 695 


540 PAPER 7: PRINT AT IS., 11; a* ( 


770 rem xxx Punnte schrsib 


aspiJ; PRINT HT 18 , 20, " ( " ; asp i .; " 






771 LET f Co+aspi *15l =1 


550 PAPER 4: PRINT AT 21,0, "Bit 


772 LET w=6+4*aspi 




774 IF 0>6 THEN LET 0=0+1 


555 BEEP '.S. 10:' --RUSE 


776 IF p>9 THEN LET w=m-l 


560 REM X x x Die 3 UUfiT Ffi K 


773 PRPEP S: PRINT PT O.W.IP 




730 IF 0!5 THEN GO TO 850 


562 DIM w IS) 


300 rem ■'■. .-. zifiichansuame er 


565 FOR X=l TO 5: LET uMX)=0: N 




EXT X 


310 let z iaspi 1 =z laspi ) +p 


570 FOR r=l TO 3 


315 LET w=6+4*aspi 


575 INK. 7: PAPER: 2: PRINT HT 19 


320 IF ;:=5Pii>5 THEN LET W=W-1 


.11," ":r;". Uurf " : PAPER 4: IN 
K 
580 FOR K=l TO 5 


825 IF I(aspiJ>99 THEN LET W =l» - 


830 PAPER 6: PRINT HT 7,u!;z\asp 


585 IF wik)<>0 THEN GO TO 600 


i-'l 
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332 


PLOT 8,112: DRRU 184,0 


3220 


FOR y=x TO 4 


835 


IF If8SpiXS3 THEN GO TO 85 


3225 


IF W (X) =U iy +1) THEN LET h -h 


IF biaspi)=35 THEN GO TO S5 


3230 


IF h=2 THEN GO TO 3250 






32 35 


NEXT y : NEXT x 


340 


print hT ai,0:"Sie erhaUen 


3S40 


LET p-0: RETURN 


Sinen "; FLR5H i: PRINT RT 21,1 


3250 


LET p=u (1) + W (2) +U 13) +u (4J +w 


9; "B 


ONUS ! " 






342 


BEEP .2.10: BEEP .2,14: BEE 


325 5 


RETURN 


P .2 


1". ff£P ,,-: IE BEEP ,2,19: 






BEEP .2. 15; BEEP .2 . 15: BEEP .2 


X 




, 15: 


BEEP .2 . 19: BEEP . 2 , 17 ; BEE 


3505 


GO SUB 3000 




11: BEEP .2,10: FLP.-5H 


3310 


FOR »=l TO 2 


34-4 


PRINT PT IS .b^iiiiii -l; "35" 


3315 


LET h=0 


; LET b iasci 1 =35 


3320 


FOR y=x TO 4 


34.6 


LET p=p*3S 




IF m fx j =W ly + 1) THEN LET h =h 


350 


rem x x Gesaffltsufiinie erho 


+ 1 








3330 


IF h=3 THEN CO TO 3350 


SS5 


LET alaspil-giaspij+p 


3335 


NEXT y : NEXT x 


65 7 


LET iu=6 + 4*aspi 


3340 


LET p=fi: RETURN 




IF 'jiaspiliy THEN LET uj=W-l 


3350 


LET P=U fl> +w £2t +w <3i + W (4-1 + i» 


559 


IF 9(aSPi)S9= THEN LET u =«i - 


151 




1 




3355 


RETURN 


360 


PAPER 6: PRINT RT 16,u;g<as 


3400 
3405 


REM XXX UoU-Haus X X 


365 


LET XX = 1: GO SUB 330: LET X 


GO SUB 3000 






34 10 


FOP >: = 1 TO 3 


390 


LET XXsll GO 5UB 675: LET X 


3415 


LET h,=0 






3420 


FOR y=X TO 4 


695 


PRINT RT 19, ia; " 


3425 


IF W ixJ=u (y+1) THEN LET h=h 


990 


GO TO 500 


+ 1: LET MftJ=X; LET Lf-hJ-g+i 


999 


REM 


3430 


IF h=2 THE-J GO TO 3-;.S0 


1000 


REM X X X X X ZeUhnen d 


3435 


NEXT y; NEXT X 


cr UUERFEL X X X X X 


3440 


LET P=0: RETURN 


1001 


REM 


3450 


LET .:=0- FOR :* = 1 "TO 5 


104.0 


PRPER 7 


3455 


IF K il) =X OR 1. (1) = :* OR 1. (2) 


104-5 


LET C = iK-li *4 + l 


= X T 


EN GO TQ 3470 


1043 


PRINT AT c+2,25; t. 


3460 


LET CsC+1: IF C =1 THEN LET 


1053 


IF »(tl»l THEN PRINT HT C,2 




GO TO 3470 


7; " 

7; " 

1060 


;;;RT c+1,27;" a ";BT e*a 


a 


346S 
RET 
3470 


IF i» m <><* C)0 THEN LET P=0: 

RN 

NEXT X 


IF Ui(fcl=3 THEN PRINT hT C 


2 


;p 


^;;;RT C+1,27; " '■ ; PT c +2 


2 


3475 


IF C<2 THEN LET P =© : RETURN 


¥f Ul CK) =3 THEN PRINT RT c 


2 


3480 


LET p=25: RETURN 


V, "U 


",RT t.1,27, " B "JRT C+2 




3500 


REM xxx Kleins Strasse 


7; " 


S" 








1030 


IF wiK)=4 THEN PRINT AT c 


2 


3505 


GO 50B 3000 


7, "J& 


E.";flT C + 1,27; " " : RT c +2 


2 


3510 


FOR A =l TO 5 


7; "F 




3515 


IF mixi=3 THEN GO TO 3525 


1090" TF utktttE THEN PRINT AT c 


2 


3517 


NEXT x 


7; "Ji 


£";RT c+1,27;" a " , RT C+2 


2 


3520 


GO TO 3590 


7; "F 


IF «U)=5 THEN PRINT hT C 




3525 


FOP *=1 TO 5 


1100 




3530 


IF u!i: i; i=4. THEN GO TO 354.0 


?|-| 


e.;;;RT c + i,27; "e C"; RT c+2 


5 


35 33 
35 35 


GO TO 3590 


liiO 


PLOT 215,151-l*3: DRRU 0,24 


3540 


FOR >:=! TO 5 


; Dh 


U 24,0: DRRU 0,-24: DRftU -2 


3545 


IF „..:;■ i =2 THEN GO TO 3555 






3547 


NEXT X 


1122 


PLOT 214, 1S0~C*8: DRRU 0,26 


3550 


GO TO 3-565 


: DR 


U 26,0: DRRU 0,-26: DRRU -2 


3S55 


FOR x =1 TO 5 






3550 


IF wixJ^i OR i.J i >u .i =5 THEN GO 


1125 


BEEP .01, W U) *3+20 


TO 3595 


1200 


RETURN 


3562 


NEXT v. 


P-32Q 


RETURN 


3555 


FOR x=l TO 5 


2990 


REM X X X X X UERTIJNGEII 


3570 


IF HJ ix) =5 THEN GO TO 3580 


X X X X x 


3572 


NEXT X 


3000 


REH X a Uibti-Pi'Lir: fin , 5b 


3575 


GO TO 3530 






3-530 


FOR .* = 1 TO 5 






3555 


l= i,i ;. i :=.e. TH=N GO TO 3595 


3010 


IF 1 io+asPi *1S) =1 THEN SO T 


353 7 


NEXT X 


3900 




LET p=0: RETURN 




RETURN 


3595 


LET p=30: RETURN 


3130 


rem x x X Einser bis 56 C 


3600 


rem xxx GfOEse strasse 










3135 


GO 5-JB 3O00 




SO SUB 3000 


3110 


FOR X=l TO 5 


3610 


FOP. K=2 TO 5 


212S 


IF w(X)=0 THEN LET p-p+o 


3515 


FOR y=l TO 5 


3130 


NEXT X 


3620 


IF nrjj=< THEN GO TO 3535 


3140 


RETURN 


3525 


NEXT y 


3200 


REM XXX 3er-Pasch X X 


3630 


GO TO 3655 








NEXT X 




GO SUB 300a 


3640 


FOR y=l TO 5 


3 2 i 5 


FOR x=l TQ 3 


3S45 


IF m(y!=l OP «CyJ=6 THEN GO 


3315 


LET h =0 


TO 3660 
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36 50 next y 

3655 _ET p=0: RETURN 
3560 LET p=40: RETURN 
3700 REM X X X KniffeL X X X 
3735 GO SUB 3000 

3713 _ET ~ -,ii.i:i: IF m li.i =X AND W 
(3) =x AND '..... !4) =X RN& m 15) ;x THEN 
GO TO 3728 
3715 ,_ET p=0; RETURN 
3720 LET p=S0: RETURN 

3508 REM XXX tistitel Chanc 

3505' GO SUB 3000 

;;a:.Ei let p =a '■ 15 nn (2) + <u (Si + w £4) + lu 
C5> 

33213 -ETURN 

3'ii'.i"! -Rlr.T RT 21. .e; ■'Schor, beLeqt 
! ! ( "; BEEP 1,3; 

SO TO 695 
J-0-55 _ET sss=£SS + l: REN S*Spie'.E 

401S~:LS : PRPER 4- 
4823 3RIkT !..=:.-■■■ 

-■■■■■■■■ ■ ; hT a, 2: ,,J 5 I E 

G E ^ R x £ x H ^ R < U N _ C _ ; '_' ,; fit _ 3 , 2 ; "' " 
4330 REM x x Uergangenes sp i £ 

4040 FOR x=l TO Spi: LET Q(XS=S< 
X i : NEXT I : GO SUB 4500 
4045 LET Z=7: LET a =5: PAPER 5: 
GO SUB 43 

405B PRINT RT 5,1; "uergangenes 5 

4060 LET aa=S: GO TO 4100 

4070 REM X x ALL* SpieLe (Tot. 

4073 1 LET ttt=l 
■■!.|>~S FOR x =l TO SPi 

4880 LET r. ixj =t ix) +9 i f. J 

tCtihi ..E" v i-s.i =!.:;■■: . -EXT x 

4033 LET z=7: LET a=13: PAPER 5: 

GO SUB 42 
■A0.y0 -ft. '"NT fi" :.":.: ■SHN-LioTE (n 

ach "; ss5 ; " Sp ■ e ien) ; " 

4095 LET 33=14 

4100 GO SUB 4500 

4105 IF tttol THEN FOR X = l TO 4: 

LET 9 <XJ =t IX) : NEXT x 

■SUi FOR ;l -l T". SB L 

4128 PRINT AT aa+x ,2: x; " . Platz: 

4130 GO SUB 4300 

4140 PRINT AT a a *;■; . 12 : s $ ; M ■'.;&!* 

i ;flT aa+x.,26: "pkte ." 

4150 NEXT X 

4150 IF aa=6 THEN GO TO 4070 

4150 LET d = .3; BEEP d , 3 : BEEP d .. 

5: BEEP d.7; BEEP d,5; BEEP d,S: 

Basic-Listing 



BEEP d ,7: BEEP 
EtP ■-■ .3: SEEP d 
EEP d ,8: BEEP d . . 
P d ,7: BEEP d . 3 
4200 INK 0; PAPER 



d .3; BEEP d ,2: B 
12: BEEP d , 10; B 
7; BEEP d,5: BEE 

PRINT AT 21 



~i-IFN Ou TO 13 
i240 PRINT AT 21.1 

EDERSEHEI 
4250 STOP 
i300 REM X Ermi 



; INKEY*= 
A U F I 



433Q NEXT ' 
1340 RETURI 
4500 REM 

4510 LET X 

f.t.^i LET ^ = -. + ,: 

4530 IF ix> =0 Al 

TO 4570 

4540 IF <xi =0 Tl 

4550 LET y=X+l 

4550 IF ty > >S IX 

x) : LET o iX) =0 (u 

LET xlsl 

■ •552 GO TO 4520 

■:.---0 RETURN 

"i REM X X : 



010 FOR : 

5030 READ ' 

5040 FOR x 
USR i 



;-; r d n s 
LET' xl= 



1=0 THEN GO 

GO TO 4510 
EN LET XXSO 



5050 DATA ■ 

O 

5052 DATA ' 



505; DATA "d 11 

=•353 DATH "a" 

0,240 

.OT:f] DATA "f" 



5-zes data "a" 

0,0,0 

5LV0 RETURN 

REM 5AUE 



0,0, 15,15, 15 , 15,0, 
0,0,240,240,240,24 
0,0,0,0,15,15, 15, 1 
0,0,8,0,240,240,24 
15,15,15, 15,0,0,8, 
240,240,240,240,0, 
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Nachdem Sie das Prr^rsrTii : i^;;::.:s!i iiaben. starlet es uon 
selbsi. Zuerst orBchem; das Tileloilu Glnicl zertig werden Sie 
aufgefordert. eine belieblge Taste ai drucken. urn das Spiel zu 
beginnen. Nachdoiv da? yesr.hoiienisl. /Hichnetder Compu- 
ter eine Art Regal, bestehend aus neun Reihen (durchnume- 
riert von 1 bis 9) und 14 Spalten. 

AnschlieBend werden miirois RHU di»: einzelnen iflegalfa- 
cheriso verleii!. dull v'.wr, die l-.-irto dor Fad'Oi yeachlossc-n 
und der Rest often ist Die oberBie ; -leihe mufi voi dem Spielbe- 
ginn immer gcschlosson swin da sicn Bonst sofort dip Spielfi- 
gurenbewegenwiirden >>mi ■ i,.u i,/n> n Wert eingibt. An- 
schlieBend werden in e.c obois;on I <;:il i<-; ■ i-e eigentlichen Hel- 
den des Spiels ausgedruckt — sieben Ruben und sieben Eler 
fin abwechBelndcr Rcihcnfolge). 

Jetztbeginnl eo: op.ali. Sie we'denzueiner Eingabe aulge- 
fordert, eineganzeZahlzwischen I und 9. entsprechend den 
Rooaireihen 1 bis 9. 

Sobald S;o emeZahl eingogeben hubo-n. verandert sich die 
betreffendeRerhewiefolgt: AllegeschlossenenFacherdffnen 
sich. alls geoffnsien I ach^i sd lieiion sieh. was soviel bedeu- 
let, alsdaflderlnh;il'>meaol'oner raohs so weit es gefii nach 

Das Ziel des Spiels ist jetzt, die Ruben alle nacb unten zu 
bringen, dabei abei die Eier [von froilooo-iden Hijhnern) am 

Heruntertallcn ,i.i hir.dern. und das ganz allein durch slnvertie- 
ren* der einzelnen Reihen. 

Eier, die unten an k on: men ivei dei i solor i zu Ruhrei und brin- 
gen keine Punkte rnehr. won I ab-s;- 1 1 i -.-: . die heil geblieben sind. 
Je holier sie am Endedor Rondo lioyen. deato rnehr Punkte. 

Solange minoeBiens en Ei noil sicibl. nokommen Sie ein 
Freispiel. Gohen alio ::eyi.>.v zu Ciudi. isl das Spiel zu Ende. In 
diesem Fall erschcint Ibr Scow m- dem Zusalz »GAMF 
OVER«. Nach doom ge^onn^nen Spiel yeh; es nach Anzeige 
des PunkiestandB vor voino lor., naoii sinern verlorenen Spiel 
erscheinl nach einiger Zoi* das Tirolreld aieder und Sie konnen 
ein neues Splelchen wagen. 

Noch einige Hinweise zum Spiel 

— Es gibl kein Unenlschiodou. [.leyeri die Ruben und Eier 
beim letzien Zug a-.it gleicker Hohe ur:;o,' den selben Bedin- 
gungen, soverlieien SkMeinfaoboos.haib. ■■vo'l die Eier vor den 
Ruben fallen). Also o.aroiol -.; eiBi some i koinnion lassen. Bes- 
ser erst abhanddn. was aut den untersten Reihen liegt 

— Priifen Sie vor jedem Zug clio da.n.irileiiieyenden Reihen, 
denn Sic koniier, di^se naiuhoh ■.■■or doni Zug zu Ihren Gun- 
sten verandern odei zuuirdesi das Bosto o'araus machen. 
Laa.Ben Sio sioh Zoi I. (•:■: ;.;ib'. k*S\\<;: Zoiiboyrenzung. 

— Jedes Ei, das lioil ..reblieber. ibI. bmgt iRo ho x 100) Punkte. 
I.ieispiel: Esblcbcn/weit ier n Rei.io droi lieyen, einesinRei- 
he sieben — 300 x 2 + 700 = 1 300 Punkte. 

Nachdem beide Toiio des Pinyran ma (program, bytes] gela- 
den wurden. wird als erstes RAMTOP heruntergesetzt. Der 
Platz dariiber win; i i ■ ■ oioklo aorLiiviasohineriprograrnmundfur 
Daien, diedasTitoll:ddbe;:eileii. bsaoiiqt. I'lornachsteSchritt 
isl das POKEn der UDGs, die vollstandig belegt sind. 



Helfen Sie Tante Emma in ihrem Laden 
beim Sortieren von Bern und Gemiise. 
Benutzen Sie dazu Geschick, Gluck 
und den 48-KByte-Spectrum. 




Das Raster des Titelbildes 



In Zeile 5200 w.ro ei;i Masol'inonoodo P'Ofsramm in den 
Speicher gesohi el a a dal.i ■ ■ .piiie- n,ir nooh aufgerufen 
/u werden braucht. 

Es geht weiter mil dem Titdoiid, das an Zeile 4000 entsteht. 
Hier wird oben tit'nyinit-r Vias-h/i-ioodo :;ii.;"'..jerufen, der die 
FarbgebungdssT:oio.ido:-j bescic;. ich habo dioaen Wegge- 
waillt, weiles woii ■.v;.-:ii..;-;; 1 iniihsan- ist. die ArfribdtealsZahien 
einzutippen, als das gan?o ' iseibikj im Diiekimodus einzuge- 
ben. Das hier verwendcto Voriah;ou gehi auBerdem (fast) ge- 
nau so schnell. 



Program mbescheibung 



liiZoile4 50CfindO:d ■:; Abtii.ino n.-ith den Spielbeginnstatt. 
Nach gedruckter Taste spring: das Progiamm in Zeile 60 (Va- 
riablenliste], 

Ab Zeile 100 wird das Spielfeld ye/.oichnel. Zeile 175 bis 
190 veiloihen de.-ii Ganzon oin otivas etas l-aches Aussehen. 

In Zeile 195 steh-;n die Belaatdefiniortor Ziflern als String. 
Warum. steht man spav;-'. Zeile 200 mimorierl die Reihen mit 
den oben genannten Zahlen durch. 

Mit Zufallszahlen. in 16cr Abstanden, die als PLOT-Posilion 
gedeutet werden, folgt jetzl die Verteilung der einzelnen Fa- 
cher. Die AniangsKoord riaier. fur Rubor; and bier stehen in 
380 und 390. 



52 i3S?fe 



Spectrum 



9nt 





Das fertige 



Zeile 450 brnoi ;run ers:on Vol ,- o Spieifiguren zurn Vor- 
schei.n. Zciie 500. (sielie Variablenliste) 

In Zeile 550 wire cine Zahl zwischen 1 und 9 verlangt. Wird 

einekleinere i .■ ■ ■■■■■ . abl n.ier aus Versehen ein Buch- 

slabe eingelippl, so mucin einen die Zeile 560 darauf auf- 
merksam. Im INPUT-Modus wird aus einem bestimrriten Grund 
ein String aris!!»ll« e. ner Zanl vonanot. Tippl :n;in versehentlich 
einen Buchstaben ein, so wird dieser nicht als Variable gedeu- 
tel. Somit entfalit also die Fohioimoldui:; » Variable not found* 
und das Programm geht zu 560. 

Beachten Sie, dali Sie das Programm wahrend des INPUTs 
nicht rnit STOP untcrb.-oo.hen konnen. da die Anfuhrungszei- 
chen. die gelosohl ■.widen nn_. liter., lohlcn. Sie konnen natiir- 
lich die LINE-Funktion in Zeile b50 weglassen. 

In Zeile 570 scMieGlich orfolql die UinechnungderEingabe 
auf die PLOT- Position. 



Linienwechsel 



Zeile 580 und 620 Idsehe'i beiieh.jrgsvvcise zcictinen ei- 
nen Pfeil an der pelade verse lie ben en Reibe. 

Der Tausch der beiden Variablen b und c ist notig, um zuerst 
das alte Zeichen zu loschen und ijieich darauf das neue zu 
zeiclinen. 

lnZf;ilo63Gerlo:gtdas Verio ischen do: FaohorrnitHilfeder 
OVER-Funktton, das heilit alle bereits vorhandenen Linien 
werden entfemt auf eirer: leerer Plalz wird erne Linie gesetzt. 

Ab Zeile 1000 wird, getrennt fur Eier und Ruben, unter- 
sucht, ob der Wog .-inch i.nlen frei ist. 

Das geschieht mit der POINT- Fun ktion, bei gleichzeitigem 
Umrechnen der PRINT-(Eier, Ruben) auf die PLOT- Position. Ei- 
neUntersucliuny nur a jl die Aurbute ; a: nicht moglich, dadie- 
se die ganze Zeit fiber gleich sind. 



Hat oin Ei das lel/w reld «rreicht. so wire: dor Tcilstring »s« 
des x-Wertes des ge-allenen b'saul sKyeselzt. Man braucht 
also nur zu tester,, ob sS aus lauler »l«en besteht, wenn man 
wissen will, ob das Spiel zu Ende Ist. Das ist einfacher und 
schnellera[s>IFsiii-19 ANDsi2j = 19 AND s(3) = 19...AND 
s(7) = 19 THEN...« (19 ist do y, Koo.-o nafo cos letzien Feldes). 
Natilrlich kann man skill dor »1« audi ein anderes Zeichen ver- 
wenden, aber »1« und »0* fallen nicht so selir aus dem Rah- 

Das gleiche gilt analog fur gS. Nach dieser Kontrolle geht's 
vvieder zum INPUT nach 550. 

Ist ein Spiel gewonnen. so ■■;■/=: den in 2500 die Punktebe- 
rechnet. Diese Puiikk;/;)! J wird /l:i G-: ■ : ■;;■ i r n I j : ;.i n k (zah I h inz uge- 
zahlt Die Zahl. die da.be: horouskorimt. wirdm 2510 bis 2525 
in den selbstdefin.oiion Zahionsa:; i.mgowanoolt Zuerst wird 
die GosantpurkTznnl !Sooro<-?:i o^nom String gemacht, urn je- 
de Zifler einzeln u"ilers'jeho , "i zj konnen. Ei.no Schlaio gob. 
jetztjedePositidr^dLronunaV'/ar'delt^iebesiimmteZahlindas 
entsprcchentio Zoiohon urn, dris n% er.mommeii wird. in Zeile 
2540 entsteht aus dem ei-isiandenen String + »YOUR SCO- 
RE* ein neuer String. 

Dasselbe gill fur olnvorioronos Sr.'iolinarurlichohnePunkte- 
zahlung), und dei Sling sielit clwas tinders aus. Er steht in 
3030. 

DieZeilen 30b() bis 3150 soryeri (el,d dalur. dalJ der Text 
(a$) uber den Rildsehirm huso ht Das Ve ,: ahren diirfte klar 
sein: aS wird zuerst ■.■■on oar or.s-.on bis zur nounion Position ge- 
druckt, dann von der zweiton bis zur zchnion. von der dritten 
bis zur elften etc. 1st die Lanje oes Swings erschbpft, geht's 
von uornlos. So'-irilsiehl der KrKf'ijr;*. als ob das ganze Ding 
von rechts nach links lauft. 

In Zeile 3070 wire untorsuoht. ob o n Spiol gowonnen wur- 
de. Wenn ja, dann geht es nach 4000 (Titelbild). 

In 3300 findet das »GAME RESET* statt. Alle Spielfiguren 
werden geloschi !o300j. an dio-Slel:e, wo die Laufschrift war, 
wird oin cntsprool'on;;i-.'-,L!;iHli:ldi!Osol;-l (3 3^0) und das feh- 
lende Stuck ersetz:. Dor P^o;l am in-ion Rand verschwindet 
(3330). AnschlioGcrd o-iTi Zoilo 3340, ob oio oberste Linie 
nocb steht. Ist dies nicht der fall, so wird diese Linie einge- 
zeichnet, um zu Beuinn des Spiois .sir, In'ih/eitiyes Herunter- 
fallen der Riibcn ljc^io;-i..nswr:!SC E.:c zu ■-■■errneiden. (Der er- 
ste Zug, bei don siob otwas :ut. ist r.loo oas Bowcgen der 9. 
Reihe.)Anschlie6erid vvrd ■.•:<-, rer. dimensioniert, dasheiBtauf 
»0« gesetzt, und das Sp cl gool wt:i:i..i zurijek zurn erneuten 
Vortcilen der Facher (Zeile 300). Benulzen Sie zurn Abspei- 
chern die Routino in 2o : io '.iV-lP,. oanr. konnon Sie spater wie 
gewohnt laden [LOAD "" oder LOAD "beets"). 

Der Rest ist Hexadezimal 



Wenn Sie das Programm alvo: ppi hab-Mii. so rnussen Sie 
vor dem Abspeichorr ror.h ono Rohf: 7abls:"i mil dem kleinen 
H Ifspiooiaii'i'i oiiioeber. D oso v/oi'dcn i:'i oinor soparakin 
SAVE-Routine aboespeichei I und audi wieder geladen (GO- 
TO 9999). 

(J org Ben zing) 
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Spectrum 




10 BORDER 1; PP.PER 1: INK 5: B 
RIGHT 1: OLS 

15 PRINT AT 11,8; "THIS GAME 15 

"20 GO SUB 5000 
50 GO TO 4000 

63 DIM £ C?i . &IM i ill : DIM g (7 
3 ! DIM e ( 7) : DIM t i7i 

90 rem r ~ 

120 PLOT' 



U 324,0; BEEP .003,. 



NEXT x 

■ NEST* 




l.AQ-X: SEEP .01.30+x: NEXT 
-J3J.E: :3i': _'J TO 550 
■570 LET C=UP,L c%: LET C=ll + 



-"-■ Rem SSQH1 
?sc ir-.'jERse 1. 




DRP.U 






























j -^ DRfll.J 3,3 












3:0 PLOT OYER 1 


;«,fai DPRU 


OYER 



1S0Q FOR :■ 
10_-.3 IF -:,ii.|T (i ix> *3 . (22- = ( 
3-l.Ji=a THEN PRINT RT i .. x ' ,1 
1 ■ LET : i;:) =■ (.:. i -2 PRINT 
INK 7; 



2-i C X J ; Gu TO 1020 

1025 IF ■= 1:.;- =19 THE:-i LET 

1 M : PRINT AT 



SEEP .005,; 



HT siXI.Hii; INK 7; "G 
.... =0 THEN FOR Z=a TO 5; 
BEEP .003,20-: NEXT z : LET K(XJ 









S.-2ZZ 


reii idmaiaamuatM 












Mfchl Hill 1 | | J 












LET g (x.i = g ix) +2 PRINT 
















1" 

137 3 


IF gOOelO THEN LET g»i 




NEXT x 




























iijO 


kEM i M J^-i^H>)'L4£n*H3jH£Uj3SJ= 






.^■-::r: ^et dj=STR 

2515 FOR K=t TO 

2520 FOR 7=0 TO 

2523 IF d* (X! =5TR» 
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Spectrum 



3030 LET i-.fc - ■r-^ii; Z JKKH * GRME 

-.|,C:- i f.._uPE "tdt + ' i ■■ 
3040 LET al-bl+bS+b* 
Gi_i30 LET z=0- LET LO..int=a 
3^60 LET .:=; + !.: IF i .. 2/GiLEf, ■ 
1 THEN LET Z=l: LET COUnt """ ' 




4271 REM [ . 

4575 PLOT 34. SI: DRfiU 115,i 
W 0.-15: DRfiU -11S.0: ~" 

aasa print "e 

■iSH'3 PRINT "fl 

£££££" 

ii-J5 P ft I NT "E 

EEEEEa" 

:■<■■:: pr li' ■■© HUTF by 



- J £'■ i. : ' 
INK 5 

e*j to siarx sane" 

INKEY$ = "-' THEN GO - 



, TO ?: RERO ■ 
eg^: NEXT x 
,44,44,94,94 




, .i .■■ 



SI 2d Ci 

a.a.a.: 

si] 6S"( 



iSJSfe 55 






UfiRIfi 

"beets 


BLENLI5TE 

J n' eggs" 


*/, 




HUroond Uariabie 
fuer SchLeifen 


»»..m 




naten rue." Eier 


„> 




naten fuer Rueben 
KontroLUert das 


P 




PunKtezahL fuer 
ganz gebUetens 
Eisr 


Kors 




Gssamtpunntijh l 


* 




PLOT Koa f dina ten 
fuer Faecher 

Hoeha einer fteihe 

eingegebenen Zahl 


c ou-n t 




zaehit die Durch.- 
93enge der Lauf- 



Variiiblenlisle 





Hexa dezi ma l-Li st i n g 


>beets 'if eggsu 




41000 


4R4F4R4F4R4F4H4F - 


512 


41352 


4E4E4E4E4E4E4D4D - 


622 


4100S 


4fi4F4R4F4R4H4R4F - 


612 


41350 


5C'4B5 3iH4fi4H4A4H - 


621 


41015 


4h4F4R4F4h4F4R4F - 


512 


41365 


4R4A4h4h4R4F4F4F - 


607 


41024 


4R4F4R4F4fi4F4B4F - 


612 


41375 


4F4F4F4F4F4F4F4A - 


627 


43,6)32 


4E4E4E4E4E4E4E4E - 




41334 


4R4F4F4F4F4F4B4B - 


619 


41340 


4E4E4E4E4E4E4E4E - 




41332 


534h4h4h4R4R4R4h - 


601 


41043 


4E4E4E4E4E4E4E4E - 




41400 


4R-iH4;-i4^4R4R4R4l=l - 


592 


41055 


4E4E4E4E4E4E4E4H - 


520 


41403 


4F4F4F4F4F4F4F4F - 


632 


410S4 


4R4F4F4F4F4F4F4F - 


627 


41416 


4E4E4E4E4E4B4B53 - 


623 


41072 


4F4F4F4F4F4F4F4F - 


632 


41424 


4R4fl4R4fl4R4R4fl4fl - 


592 


41030 


4F4F4C4l:4C4C4C4C - 


614 


41432 


4R4R4H4R4F4F4F4F - 


612 


410S3 


4-.4M4l-|.VH4H4F14fl4F - 


599 


41440 


4F4F4F4F4F4F4F4A - 


627 


410-35 


4E4E4E4E4E4E£4E4D - 


623 


41448 


4R4R4R4B4B534R4R - 


603 


41134 


4D4D4F4F4F4F4F4F - 


523 


414S5 


4R4A4F4F4F4F4F4F - 


622 


41112 


4F4F4C4C4C4C4C4C - 


514 


41464 


4F4F4F4-F4F4F4F4F - 


632 


41120 


4.;:4C4C4C4F4F4F4fl - 


615 


41472 


4F4F4F4F4F4F4F4F - 


632 


41128 


4R4F4D4D4D4D4D4D - 




41480 


4E4E4E4E4B4H4F4F - 


616 


41136 


7D4F4F4F4F4F4F4F - 


678 


41438 


4F4F4F4E4E4E4E4E - 


527 


41144 


4F4F4F4C4C4C4C4C - 


617 


41496 


4E4E4E4E4E4E4E4E - 


624 


411E2 


4G4C,1-C.J.C4C4C4C4-F - 


611 


4 1504 


4E4E4E4F4F4F4F4R - 


624 


41150 


4E4E4E4E4E4E4D4C- - 


622 


41512 


4A4E4E4E4E4E4E4E - 




41155 


4F4F4F4F4F4F4F46 - 


623 


41320 


4E4E4E4E4E4E4E4E - 


524 


41176 


4B4E4B4F4C4C4C4C - 




41523 


4E4E4E4E4E4E4E4E - 


624 


41154 


4C4C4.;4C4C4C4C4fi - 


606 




4E4E4E4E4E4E4R4F - 


621 


41192 


4R4F4F4F4F4F4D7D - 


671 


41544 


4E4E4E4E4E4E4E4E - 


624 


41200 


4F4F4F4F4F4F464S - 


624 


41S52 


4E4E4E4E4E4E4E4E - 


624 


41208 


48464B4B4C4C4C4C - 




41550 


4E4E4E4E4E4E4E4E - 


524 


41216 


4C4C4C4C4C4C4C4r - 


611 


41S68 


4E4E4E4E4E4h = .;-;.h - 


624 


41224 


4E4E4E4E4E4E4D7D - 


670 


41575 


4A4F4F4F4F4F4F4F -> 


627 


41232 


4F4F4F4F4F4B4B46 - 


620 


41584 


4F4F4F4F4F4F4F4F -> 


532 


41240 


53534H4H4C4C4i:4C - 


518 


41592 


4F4F4F4F4F4F4F4F -> 


632 


41243 


4C4C4C4C4C4C4C4H - 




41600 


4F4F4F4F4H56-44F -. 


571 


41255 


4H4F4F4F4F4F4D4D - 


523 


41603 


4E4E4E4E4E4E4E4E -: 


624 


41264 


±-±r±r^.F±r. + 6=-3=-3 ■ 


648 


4 1616 


4E4E4E4L4E4E4E4E -: 


624 


41272 


4R4H4H4H4hiF4C4C - 


601 


41624 


4E4E4E4E4E4E4E4E -= 


624 


4 1230 


4 1_ 4 U «■ '_■ 4 1_: 4 '_■ 4 C 4 U 4 F - 


611 


41632 


4E4E4E4fl5674554F( -: 


635 


41253 


4E4E4E4E4E4E.1D4D - 




41640 


4R4F4F4F4F4F4F4F -: 


627 


41296 


7C>4F5F4E4B5'J.-HiP - 


630 


41643 


4F4F4F4F4F4F4F4F -> 


632 


41304 


4fi4KUH4H4H4l-UL:4i: -. 


596 


41656 


4F4F4F4F4F4F4F4F -: 


632 


41312 


4.C4C4i:4i:-4C4C4C4H - 




41664 


4F4F4R567465694F - : 
4E4E4E4E4E4E4E4E - > 


719 


41323 


4R4F4F4F4F4F4DAD -. 


523 


41672 


624 


4132S 


7r-73-i-54e534F,4 |4R -. 


703 




4E4E4E4E4E4E4E4E -> 


624 


41336 


4R4R4R4R4R4F4F4F -> 


607 


4 1533 


4E4E4E4E4E4R4F4R -> 


517 


41344 


4-F4F4F4F4F4F4F4F -> 


632 


41696 


4F4R4F4fl4F4R4F4fl -: 





S6rffa 



Spectrum 



Sau&en#ta*ut 



Helfen Sie dem Spectrum-Sauber- 
mann bei seinem Kampf gegen Zest 
und Schwamm. 48 KByte RAM sind 
Voraussetzung, Geduld unverzichtbar. 



flit Mc Wash ist grower Badefag. Aber s 
dariiber, denn fur ihn nedeutol linden rn.: 
und spannende Arbeit' Der Grund: s 

oiriorn yrotten (seeks Bile^c'iinno; Libyrnlh. Darin (Cinfmal ei- 
ncn Eimer zu linden und zur Wanne zu bringen, isi schwer, zu- 
mal das Labyrinth von ■■/ don \viibboligen Badesch warn men be- 
wachtwird, die bid: gar n chtgone 'hm Earner steblen lassen' 
Sie wehren aicli. i:idem sie hi n tor si Wash hcrlaufen, sobald 
er einen Eimer hall urn: ve.'Sucfien. rhm diesen wegzunehmen 
und von neucmzu vorslecken. Un'.er solclien Umstandc-n miiS 
unser Held inner hnlh ■;■ ner beslim mler; Ze : sein Badbereiten; 
wennereanichlsoli,-;f|-:. ■ohijrvi.i;-::-iinoSiiH:'e. erhalt der Spieler 

keine Punkte! 



Programmtechnisches: 

T;<:;,1enbelegung: 

i-rechts 

|Ks sind auer an com lask-s'ibelegui gen moglich.) 

Im Masehinen odorei! : 1 1 ■ 1 1 v> v iderungen vorge- 

nommen werden. d'eGrafik und da;-, laoymth kennen jedocft 
selbergestaltetivercon.Zum A-.ifh,-iu sea Labyrinths: ZumBei- 
spieldie 2. Zeile. I S:;aite dei; L,invrintl\s sl--hl in Speicherzel- 
le 30682 ( = 30ti/0- VI. das Labyrin'h isl 13 Byte breit, was 
sichaus 3 (3 Screens b;og mel 3? CScreen = 32 Spalten) mal 
1 : 8 (eine Spalte-ein Bit!) ergibt. 

-PEEK 30682« ergibt 128 
( = bin 10000000,l = mauer,0=weg) 

Eingabe der Programme 

Zi]ersidasM(i:.-,i;l:iii--ieodi?-..i::Uir-:.; einceben. dann das Ba- 
sic-Programm: B.^i," programn- 3AV! n mil >,SAVE 'MC WASH' 
line 99*. dann =SAV = he wi-wrY coco 30000.3358*. Viel SpaB 
beim Spielen. 

(Fiolf La torn:; or: 



Mc Wash meldet sich 



Speicherzelte 


Fonktien 


31440 














Spalle Elmer 




Zeile Eimer 




Spalle Mc Wash 




Zeile Mc Wash 


31447-31456 








31644-31673 


SGhwSmme1-15 


(Basicteil) 

hsc=riigt15Cor e 








n§=Narne(tesHigh 




lev = Level 




















30670-31245 


Labyrinth!! 


31501 


AbfraT™ob™byrmtri an beslimmterStelle 




MaijemderWegst 








Ejmerabfrage USW 




Bowsgung Schwamm!! 


32361 


initial, sac rum Sctmamme 


32920-33357 


GrafiK! 


Variablentabelle 


(fur Maschinencodeteil) 



iuScrM : i 57 



Spectrum 



Basic-Lisling »Mc Wash.. 



BtlHe L fen 5 


e Hc fl «a?h7 








n Eint8f««ts 




















die Bods- 











eigt.anund ist von der spietst 

4 REM fin dcr Dur.ih fuehrung s* 
eraBfirbeit hindern r-K uash K Le 



ttShil 






flnz 



dsr Schwaer,i:jt ii r. ESa bha eng i g von 
der 5p.e i.ti.-j : ;: .3i: iE_- ?, o e n r, e r, bi 

S REM SDie Sch was mine uerstecK. 
en din-TUEi rnur iffimer m i tde r . fa i. Ls 
s i e a ttl-1 . i-i f a fl g e r. k o e r, n * n . a n p ; =■ ■=. 
'_=. qi-; =i.i.;h . ... ennttttMc wash keine 
n E i » e r ha S 1 1 1 

5 REM K.;t Mnzei-gen . 8a-uben I. 
int.s=ZEITfl-aei'iEi:r..ji b i. inkende T 
i.ii.-d -n :ig '.■!!■: l-,£n Ze i '. abs ehltj tt 

ir ■:.:.:.-,,. i .j-HQ ■ , ii,;f i„ , ■ d ,=, ., , : |-, „l,,;. 

i ischJUsnnt I i ■: I- geuacht .a 1st das 
T bi.au ,10 r. i \ e man sicr.Biitbtr ;■ 
-_ -_ i i. e n . . . a 

7 REM -unten L i n k 5 aEIMERRNZEI 
GEfiBbl inkt , fa i. ts Mc uash den Eim 

3 REt-T'Jiel Spass ! tttt«««#S©bB R 

o ■. f Ldki6'.p-:,-?JKui..£'; 5144330 Giict 
=■.-=.: Oh "- :.CT = . .7;3:-4! .-7;3i:3e.5, 

10 DfiTfi 3 . 5 , 5 . 7 . 7 . 5 , S , 7 , 7 . 5 , 3 ■ 
3, 3, 5, 3. 3, 8, 5.; 3. 7. 7. 5. 3. 8. 4. 5, 7, 
5 . 15 .3. 12,3 

11 DfiTR 3.5,3.3,7.15,7,3,7,15, 

3 , 3 , IS , 15 . 3 '. 3 '. 12 ■ 15 . 3 . S , 5 , 4- , 3 , 3 ,, 

4 .5 .3, 12 ,3, 12.3,3 

20 DhTh a, . 1 .5 . .1 .9, . 1, 12, .2 .9 
. . 1, 15 . .5,9, . 1 . 10, .3,6, .1,7, .2,1 

2 , ,1,9, .3,5, .3 

21 BSTfl 0, . 1,5 . .1,9, . 1 . 12, .2,9 
. . 1 . 12 . .5, -3, . 1 . 12 . . 1 . 14, . 1,12, .1 
, 10, . 1 ,9, .1,7, .1,5, .6 

■3i3 DhTh .5 , S, .25,7 . .55.6, .5,7 . 
.5,3, .5.-1. .5. 0, .5. -3, .5.0, .5,-4 
. .£5,5. .55 .4 . .55 .5 . . 25 . 5 , . 25 , , . 
25,-1, .5,5. .25. 4. .25,2, 1,4 
99 LuhD ■'km: «;h"LaDE 
130 CLEAR 29999 
HDl PfiPER 0: INK 7: BORDER 4 

102 LET ri* = "6ilbO the Hobbif: 
LET hSc-lOOOO 

103 LET cL-120; LET «Jd=130: LET 
SC=0 

104 POKE 53375.152 POKE £3675, 
128 

110 GO TO 150 

115 rem untsrprograwme 

128 PRINT RT 0,0; 
122 FOR i =1 TO 22 
124 ;-'PlK7 PPPEF 2: ■ BcBESBBBBpBR 



123 RETURN 

130 FOR > =6 TO 16 

135 PRINT AT i,3; PfiPER ! 

134 NEXT i 

136 RETURN 

133 PRINT AT SI »« J "PRESS 



RUBBER KEY 1 ': IF INKE\ 


%-"" THEN 


GO TO 133 




139 


GO SUB C L ; RETURN 
FOR i=l TO LEN a* 




142 


PRINT at US ; 




143 


BEEP .333.10: NEXT i 


144 


PRINT : RETURN 




150 


REM fir. fang 

CLS ; GO SUB c L 




152 




155 


PRINT fiT 4,0; -ROLF D.G.PROU 


DLV 


PRESENTS- " 




160 


GO SUB Wd 




162 


PfiPER 5: INK 




165 


PRINT FIT 10, 13; Ph 


PER 4, "KC 




i"; AT 11 . IS; '■■joss 




163 


PRINT AT 7.9;CHR5 


14-6; CHRS 
$ 143, fiT 


147; 


-hT 3,9; CHRt 149. CHF 




CHRt 154.. CI-iRS 1.55 


AT 3,21; C 


HR$ 


i5 -. ,_-;p5 it.c 




159 


PAPER 0: INK 7 






PRINT AT 13,0, FLh 
-?£; "; PRINT ; PRINT 


5H 1; "HIG 


H5C0 
' 172 


r,J; '■ — >" 


RESTORE 10: FOR i: 


1 TG 64 


174 


RERD a : BEEP .03,- 




^175 


IF INH,eV$<>"" THE!- 


GO TO 13 


= 177 


NEXT i 

GO TO 172 

30 SUB 138 




134 


PRINT -DO you want 
ctions? ( j,-*i " 


to see i 


135 


IF INKEV* = ■"■ THEN 


GO TO 135 


IS? 


IF INKEYSw".J" THE 


N GO TO 2 


200 


REM Instructions 




201 


GO SUB e 1. 

LET - =23759 






LET t=t+l 




210 


IF PEEK t=C0OE 'B' 


THEN PR I 


NT ; 


GO TO 205 




220 


IF PEEK t=I3 THEN 


LET tat +6 


230 


IF PEEK T. =.;ODE "i? 1 


THEN GO 


SUE 


L3S: GO TO 2:05 




235 


IF PEEK l=CODE "i. 1 


THEN GO 


TO 260 




240 


PRINT GHRS PEEK t 




. 5 i 5 

250 


BEEF .0023,0+40=* it 


- INT 1 1 /S 


GO TO 205 




260 


GO TO 150 




230 


REM Spie L be a inn 




2S5 


GO SUB C i. 




290 


LET **»"S*l*tt Ski 


i >. Lave J. 


(1 TO Hi" 




300 


GO SUB 140 




310 


INPUT L6V : IF ».eU.< 


OR ItV > 


11 THEN GO TO 2S0 




320 


PRINT HT 3,0: LET 


at="LEUEL 


"+STRS i Lev) 




330 


GO SUB 140 




340 


PRINT fiT 5,0, ; LET 


a*=STH* 


i20 + 


ev-15) +■' Bade ;■:!-.'.« a 




345 


GO SUB 140 




358 


LET at=5TPS (7*5.1 


2* (16-tev 








355 


GO SUB 140 




360 


GO SUB 133 




365 


FOR i =9 TO STEP 


-1; PRINT 


AT 


2, IB: " ";i; " 


" : BEE 


P .5 


i -12: NEXT i 




367 


E'OKE 31630, 16- Lev 




370 


POKE 2 3672,0: POKE 


23573,0 


379 


REM Hier Sp.-uni ir 


Maschine 






380 


LET a=USR 52361 




335 


REM fiuiwertung 




400 


IF a=0 THErj GO TO 




410 


REM qEiChafftl 




415 


GO -SUB ud ; PRINT R 


T 10, 12; " 


WELL 


DONE ! " 




420 


P7.;. _ 0SE SB: 




430 


FOR i =1 TO 27 




435 


RERC- a , b; BEEP b.a 




440 


NEXT i 





58 lift 



Spectrum 



450 GO SUB CI. 

■1-52 GO TO 750 

4d0 PRINT hT 2,0; "Now tfj leu 

■-1-STRI lew y 

470 GO TO 340 
b.jiD C'E.- Lc-ider veMoren 
,,605 PRINT FIT 10,13; "OUT OF TI 

■ 6 N£XT°? i= " 20 T ° 3Q: BEEP '® 3 

&2V restore 30 

r-"C FOR i=l TO 2S 

t.40 Read a ,b : beep a ,b 

6S0 .NEXT i 

e.Si3 L-0 SUB 138 

cl-= T.- i,:,-, ;; THEN GO TH qqq 

^■5 '■-, JM-T hT 10 10; 

bi isi^arsr* " o,k '*"»•' 

o 6M INPUT .„ IP „«,.■„- THEN 
700 LETaj-'GuOD BYE" 

















































































8 55 


PAUSE 4*4 


























































i=0 SUB 140 










Basic-Lisiing »Mc Wash- (SchluR) 





Hexadez 


mal-Listing »Mc Washa 




3O00O 


252323E50620CS31 - 


5~?0 


50005 


00O5:521FE4?11FF - 


835 


33016 


-'.. --DSoClCSSlFniF - 


124S 


30024 


■: \- ; ..: i ■. ■■■■.■ i,' ire - 


1252 


30032 


57ilFFS76:53321FE - 


1154 


300*0 


5RllrF5H3100056i: - 


693 


300*8 


Ssl .UEOSISFF i.590 ■■ 


739 


30O5 E 


El.E5654.7il0C0304 - 


755 


30064 


i~."iFFDF?:,.9::JF.:r:.L - 


924 


30S72 


452551. ::B55555^5B - 


974 


30030 


JFS--1600373FED52 - 


617 


30063 


_ = 05:;85F-:35203:55 - 


639 


5O036 


075555*7575500:- - 


365 


33104. 


:.t - i.: --...:. 3i:-?.li3CSi£ - 


759 


30 112 


30:.6i5O04716011E -> 


354 


3012 


::-:l^- r-i6 5O5o:F. - 


732 




50351503471600:6 






0055537-0:10^.*: -■ 


900 


30144 


1 '. :. :."=-. 




30 IS 2 


LFO05O521014311 -> 


321 


3016 


:?0:.55FE:0":5F- i Fi : -: 


901 


30165 


4511004-55555512: -. 


S00 


30175 


31501^O050EC>e321 -> 


63* 


30134 


31531:3033F,::3C33 -- 


193 


30192 


E7O53O i 4.30L.:3:!C13 -. 


794 


30230 


O3E1F5:.5-7::3C00 -; 


S95 


302O3 


i!.:37iFFDSJ131E = :- 


735 


30215 


C13E2091CES=ceS5 -. 


964 


50S24 


C55^6r 15031O1662 -. 


434 


30P32 


' c:-:5O6205.!.560755 - ; 


733 


3O240 


554.75736031F10F5 - 


575 


30243 


145*3281005051-55 -- . 


593 


30255 


L5'434-- i.ftfj :-.':-■:-■ - . 


520 


50264 


3 67 7 15OEO50E1F3E -> 


597 


■:0272 


1690471603:i?0053 - . 


496 


50260 


337 7C110fi34UeC5 ■-; 


914 


302S3 


t ;F.355O313O30517 - . 


911 


30236 


'... 1 ! I,' ■ .11 :.. 


SB5 




200511E0FS15O541 - 


570 


33312 


E0FFE519EBE14S06 -,S 


1271 



30323 


23E5D5C5060S7E12 - 


829 


30525 


24:il0FH51C-lE125 - 


984 


50556 


1313EE4110D22I25 - 


529 




■--■■: 105655"! 500257 - 


657 


30352 


55614.5065355155: - 


710 


50360 


5:55054-711065054. - 


755 


30366 


EL/521010F-3S52051 - 


900 


30376 


T5.53::,F,_;b;3^063F55- ... 


1037 


30334. 


:=0315i502169£7i - 


375 


30392 


3 1;.. £ -5 C 7 5 £■* 7 3 -37 -J.; - 


578 


304-0O 


00:].71OFF.43Fh6:7510 - 


581 


30433 


65552O534506i7i6 - 


565 


30416 


011EJ v:::.66:77i6.3- - 


552 


30124 


555E205?^F:-i6:-:.6 - 


555 


33432 


03:6000353^76110 - 


&99 


30443 


-:Oiil0O9ElC91114 - 


917 


3044S 


3i:9t6.06:&5506i;' 


511 


30436 


667353C33E3F.;.:;~5 - 


833 


304-64 


56572505:1200715 - 


354 


30472 


55:i2505:l5i-.66::1 - 




30433 


- 5OE255535650555 -- 


763 


504-65 


7E122414iSF56:51 - 


863 


50406 


-12 3 13 1065*1 10D3 


822 


3 050* 


21D = 5P.llFF!3Fi3163 - 


933 


30512 


32E3B55145O.520F5 - 


788 


3O520 


15015:6655*71105 ■• 




505 25 


350J-133 -5=635213 - 


482. 


50=35 


5-5E205155655FC5 -- 


1150 


5 OS 4 4- 


5 = 55.555.516.03 1915 


495 


50S52 


3nl50h-553555733 - 


686 


5055 


-.734-57:5001710-5 - 


434 


50663 


*5q6S506:iS011E17 -■ 


355 


505 76 


13043.50^:i.E00:::-::£ - 


339 


5055 4 


5525-5 : 05005D5577 - 


721 




6J.1034.4.11035E1OO - 


1107 


53600 


;'5Q4-Q5ili0002133 ... 


543 


5050c: 


57 ,9.05300475175 -. 


785 


306 15 


5573505^:5335=25 - 


545 


30 654 


V ^^661 -'F.-.-.-5.-5 ■-■-- 


1054 


50652 


350505005136051H -. 


278 


30640 


77241310FPC9C9E5 -3 


1071 



ft. 59 



Spectrum 



31364.8 


D5C5210000EDSB76 -> 


689 


30656 


50 .30646 1 9 :.S-[: = i - 


520 


30664 


765C0101E1C2FFFF - ; 


154.3 


30872 


FFFFFFFFFFFFFFFF -> 


2040 


305S0 


FFFFS01FFCOOO536 


977 


50658 


3FC0iFyr,---r.;;o3u.- 


966 


■jSfdb 


FC000O0O3F:3:Z^9.i - . 


666 


30704 


:-;E;~3'3CFj73C = FE76: - . 


3SS 


30712 


01O95O165E1590E0 -: 


SIS 


30720 


30505. -:-F0i:965L9 - : 


661 


30728 


5E7180OOOi333EllE - 


535 


30736 


OF iyJ'i£-3"-!3:.ic 


711 


3074-4 


7C33=liE3F3993El -. 


sae 


30752 


067iO39f_-'391F99E -■ 


114.7 


30760 


-F599267L:i-5C39E -: 


1219 


30763 


009i.F9357F2193E7 -- . 


1074 


307 76 


- I 635 = 93.00050955 - 


1024 


30734. 


-'F2.9263QFL36-80 -' 


915 


307'32 


b7 = 303i307F2?9260 ■■ . 


364- 


30.390 


OF679-80641F0040 -: 


920 


30336 


072012b7r.e67-^:.E 


S13 


30316 


64iF:3.13O3201 267 -■ 


548 


30324 


CO5750. E673FF249 - 


934 


30632 


EO5O303='i3 = F72F5i -. 


1153 


3034.0 


6701=20307339007 - 


563 


30S46 


'33073F6203035205 - 


691 


303 56 


,-.- 3:-h.-i-Fr3Q79S12 


313 


30364 


0036 02754 ^OOOOF^ - 


700 


30 67 2 


IOFFF5010F9F8SE73 - 


1240 


3035O 


4F3393FFi::0FF31F3 ■■ 


1351 


30333 


CO79 l --Fe04 = O193FF -. 


1145 


306 56 


006606001357966.^1 - 


1263 




i.:0i=oiFi:4OF5633 


716 


30'= 12 


i"=O70O051i71C0O0O0 - 


704 


30920 


1-4057-05400703000 - 


457 


30926 


.!. .■■■' ;■ .r E4 - 


731 




O573OFF50.O0F53&4 - 


920 


50944 


0FF5i:FE7F3F3C:=rF - 


1644 


30952 


3F5Fi3F9F5Fr3C = E7 - 


1236 


3096 


=0F3Cff=5f;fc=9F - 


1440 


30966 


3FF35603OO4OOOOF - 


569 


30976 


30^1. Ce070:- ;■"■" 3 01- 


340 


30984. 


50;O0O25O0Ol'-50'' - 


239 


30999 


3 50395FOiFE4FFF2O - 


1033 


31000 


3FF9i::'=hEi.87-=j9tiC 


1119 


31003 


024303257EO 11 500 - 


4.4-2 


31316 


.i5^.19330O2-33v26 - 


397 


31024 


7roli_60O4F4 19 93C 


633 


31032 


42-:_=3.i500-FC9FE - 




3104E 


424F3953i549F527 - 


776 


31046 


OO7F350O424FO924 - 


661 


31056 


404.9 352 7FE7606 30 - 


753 


31064 


404F95504249C300 - 


689 


31079 


=50006493 04^9525 




51080 


42496FO0O20.5C49 - 


614- 


31033 


0:=CF99244=496F0C - 


753 


31096 


O3Cri:.0i6L5-'CF9922 - 


375 


31104 


.'9O9605OF04 = O2;!6 - 


S96 


31112 


?.rr ■:=. 17100:20 3 3020 - 


502 


31120 


73-5020164036.00 - 


595 


31123 


02439FE0. =10/0200 ■ 


4-90 


31136 


040399FE-F--39FE6 


1002 


31144 


.60192 ■5047-9700 - 


64.3 




03459FF_79FEi9OOl - 


992 


31160 


: :::5555005--.13: r 00 ■■ 


436 


31166 


COO19O3 7O05F9F3F 


703 


31176 


-FI30OFOO3OO595C9 - 


941 




OOUFOO^OGOOF^FPl 


312 




O = i=75O095F.- = O5O0 - 






000=3 3=0066 7^006 






76rF0 5FI : -FF'::000 - 


1219 




0OO7E3rO07'FFFO3F - 




31232 


FFFFF0042307£Ol1 - 
E7FPFFFFFFFFFFF 




31240 


3FFFFFFFFFFFQ0C i 




■31246 

31256 


166r':H4550:3246 - 
' '"i ; '■'■'■ i. .■!■.. ■'!' 






F:F6OD6hE0FBD665 - 


" 



31320 


5C'4F366CMflF6002C - 


1025 


3 1328 


066ti;6H41966H374 - 




31336 


IE6EE5107-'32914ED 


813 


31344 


h6265ih:3110D0081 - 


739 


31352 


cOFOhoF 341^0^136 - 


1090 


3 1560 


-'.f-ho-2-_= 60i.= 03E ■ 


1213 


31565 


oF76060 = -i722i079 - 






907DD75C3314E297 - 


1024 


31384 


630DF34007H 16290 - 


1273 


31392 


F7509h_!564O87hO6 - 


1333 


314O0 


2i;:53C7594.2646169 - 






E273HE3733391064 - 


905 


31416 


60E23634PiFlE7Fi3 - 




31424 


1F411HH9C5F556L=. - 


1024 


31432 


2222EFFFE 3553400 - 


1052 




i'. ; i:io5-HO5i"O06o..i - 


559 


314 43 


30F516EHlF,r-4:L5 76 - 


914 


31456 


16010300^5-5650- - 




31464 


70766O7'-10E7747 - 


630 


31472 


3630250104 :630Li 




31450 


O:-503-:ff.D52191O - 




31438 


FO3B5 = 36O4L12:001 - 


637 


31496 


'33 101= ic^oof^oof - 


1508 


31504 


CO .F - 


399 


51512 


FE1F2O0O7907C7O7 - 




31520 


66O75::0 lr OFOF4F18 - 


445 


31625 


O10i_CD4F7B353O04 -- 


503 


31536 


76=F 1020000600 79 - 


570 


51544 


O737O73C3i::360F0F - 




31552 


0F4FCO.4F7B3OO4OC 




3166 


C04F73E10101C979 - 


1356 


31565 


CDE4?h J10COOC67J.; - 


735 


31576 


HF5I3323910FL". 179 - 


1102 


31554 


F6 lF3E.3Fi353Fi.63F - 


1059 


31592 


5F16501979F00757, - 


5SS 


51600 


475EC0C4371F10FO - 


492 


31606 


4:-;h02002-iF.;:9o 7'3'J - 


399 


31516 


CD21l307H2i50-HOO - 


1001 


31524 


0725553 7 255605OO - 


610 


31632 


36O=.60OO=.6O6^5O|7 - 


647 


31640 


5D7Fl.;..i9: -F.J2H70C - 


636 


31545 


.:'0U=.06057::i552 : !00 - 




31656 


.■00^00 j.29953 35 :.- - 


534 


3166 4 


!■.■,' .'■ ■■ I 1 . ■ ' . - 


500 


315 72 


hh io:=.:oo4005605 - 


762 


51650 


50OO75O616O35O7I3 


732 


31588 


0I-EOOEO76E6OhF6 - 


1111 


31696 


0FOhOO7DOF,572O23 - 


714 




DD56-; :i ."1007EC64F 


754 


31712 


E61FFE1E20OB00C6 - 


1012 


31720 


OOF 62 16 475 79F6 IF - 


990 


31728 


4F0CT-D460I6OOOO75 - 


729 


31736 


OhOO7C157hC65F20 - 


832 


31744 


22008= 11Q2004E05 - 


632 


31752 


^■046060: -'9'd5iFFF. - 


946 


51760 


1FO0050::OOO600F6 - 


754 


31766 


21507830007500:00 - 


770 


31776 


7O16S4.3r-4 79029OO 


301 


31734 


861303.;:.;"F_06rtOO - 


631 


31792 


20i.:OO7 = 0505'5O4F - 


790 




0O15OO76OOF6213E - 




51808 


761OO54705OD4E85 - 


527 


31616 


0030=60600 7016^/ 




51324 


0076060035.1104;..;. - 


70S 


51332 


FE17201106OOO676 - 


679 




06 lOFOSFODOBOOFi: - 


1045 


3184 6 


2152-6100447OD46 - 


631 


3 1856 


053D0L'-7E[!-0D7D05 - 


399 


31864 


DO36O076260Hi:^6 - 


733 


518 7 2 


703655 79CCE479C9 - 


1443 




OO4636OO7-.05576.i- - 


910 


513 53 


■iF16OOi603183^7-. - 


360 


51696 


D3-0O557761C103;C0 -- 


1431 


51904 


9-7C007D977304CO - 


976 


31912 


37750D53'37-061D3' - 


1162 


51920 


7,0=00 I'OOOOOlOll - 


765 




5EF9..:.60610F3OOl.B - 


1210 




006 = 2303.35040776 - 


763 




0O9f:i50--doc=oode - 






5 v 1646D0-:505D-7n: _ 


531 




36E61F4FC097 7014 - 






O0CO97 7014043,39- - 






73 140I;>00977l16<=:8 -■ 






0603003300532704 - 


579 


.■ ■ 


1E5OOEO2433E10O3 - 





60 i£MS 



Spectrum 



32000 


FE10FE433E00D3FE - 


1113 


33038 


i0 = E;7v70F' J [^8E-00 - 


978 


35016 


E-5';[i-^:f5Ei:e T E-".j 


1402 


32Q34 


30E-0DC7E00E607E:r. - 


B46 


32032 


403F--06 .70E3E..63.1 - 


£72 


330 + 


CD977C14SCCD97ri: - 


992 




140CCD97 7C140CCD - 




jssse 


■j77-47DD7EG3E-.ct' - 


1150 


32064. 


6S30357L:EF0PE.E30 - 


519 


3307 2 


351Ei31323E;0~ , E03 - 






E61F4FQD4;.043C-97 - 




32 06c. 


7C14-3CCD977C 14.Q4 -- 




32 39 6 


CD977C1403GD977E - 


953 


32104 


:.<e:e:o:i-E2E1^iec.7 j - 

13E60i.i60E00-.r97 - 


! 




5ft7:.scL'D46'ii:B«.j:= - 


393 
3B* 




21-33 ;'E01::.DF£._02C - 


ill 




21J07372-i.-.71E:ir - 


SSi 




0E.34433E1-D3FE10 - 


7d7_ 




FE433E00[::.FE.10FE - 






0[;20E^L:E6E0_,jE00 - 






3630132H': 37:37 -rr^ - 






:t;E06i:f <S2|t>D7E03 - 






'303EE L73336FFr 1 - 






3£i4D3F=10FE3F00 - 






Di.F = 4310FE4.310EF - 






-E20EhE'OE:B006EC!- - 






33 ■E::i : ;E7si:;-r;7r: - 








w 

Hi 










.■ ■'. .■■'.■ ■ - 


292~ 




4rE3E8^E93P7F9:"E - 


5?? 




-"'■7i3::_ : EE ; E02-.!:: 15" 






■F J£E3E^4. : |J3 '"■£05 -. 






F6E0E3202^d:/_:E.03 -. 






7E232-'7Ei: E; irs E j rj ;-; .;: 






■■■.'■'■' n ■' ■■ ' ... 




?I|H 


0020037ED6^7'4^0F. - , 






ie.l.3333D474ECD0D - ■■ 




32 60 


?F7:73E:4L33-.r3E-:F .. 




33^1; 


3erii32O0i06067E - . 




32624 


-6604F16E13C474E - 


331 


32632 


I3CC-E4.'-E61F:-E1E - 


994 


3264.0 


30C10i:072 J462B18 -: 


229 


3264-8 


L.E.7E4FE61F2001EO -; 




326F6 


0C2346:-:B:i.3:.0CF7F -> 




3266 4. 


EE.E047C.D7E05E3E0 - . 


1331 


32672 


BS2021D1C10CC5D5 - > 


1073 



vz 


3:334E:.::E27C'E'4607 - 
E60410Fu43E.7i;=_43 - 






[■C'6607EF79F.61F4F -. 


313 




E5CD977l:0C14E:D97 -. 


1097 




"".04143D977C0C'l4 -. 


esi 




0577G£1CE J 0F80E:1 - 






3628:3£D7E i 32C7E -: 


791 




. :'E.E3370?77-=:l.E3 - 


1033 




3EC3C3E3CI762~EE1 - : 


1252 




, 3FFE33E16D3FF10 -: 






--~EFF93473E02C3 -- : 






Ei0FE4.3:J0EE:3F7..' -- 


2-05 




I'iE0„hFE.D-33i5fe. - 






:'L-3B0Oe623051J.E4 - 






^69FEE'3233032EE8 ■ 






?0i-CG7C=.7E-2; 9C7E. - 




'32634 


160Fi-EB7^73H77T:. - 




328 72 


4FEF.P.023F6-E- ,;. _ 




32830 


O0FEF098FD-9-'-. " - 




3233 8 


Fcl-2i-JE6CD677^3H - 




328-56 


7 76 8E61FFE17:0=4 -. 






-■.-'-D3D7B38D47L=-8 -: 






73 2 31320C:D836 7& ■-; 






'J707.0^00E'03Ci7070 - : 






rF101010FF340404 -- , 






_ .'371F070F0F0703 - ■■ 






E030F0CO6OE34G30 -■ 






-E.EiTKEOrf^EiiEEiEG -'. 






:.3:>:elE0&-0[ 0403...:. -.■ 


1604 




E JE0F7j--7if OF3E0E0 -- ■ 






■0 -0E5F.0EOFOi.0E0 -..■ 






7:.02040303023'338 






I :O30700340430Cl 






^3E0FE.00101000E0 - ; 






.30E::.F.rr0 i 3-0::03.; ■■ 


1320 


: . : as 3 


000F3F0F070i0E00 - 




33096 


07071F3O03C30O03 ■ 




1 SSI 

3323 = 


30:0^03020300:190 - ■ 
00-0E-0L.0E033E80C - ■ 
'-3 I lFlF3r-i:F0E07i': ■ > 

F E" C ^" E," - r -| 'f' ^ T tT ! ' ,-"■:. 

00BS30-0 100=6: =3 - 




33240 


-!31G-"070E020E00C - 






1F1E3E0E06060 00 - 
FFFF81IE7E7E7E7FF - • 


Si 1 


j HexadejimaHJ sling »Mc Wash.- (Schlu6) 
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Spec tr um 



Hardcopy mit Interface 1 
und Matrix-Drucker 



Das Programm ersteltt wahlweise Hardcopys in Normalgrofie 
(27 Sekunden) Oder mit 4facher VergrbBerung (1 Minute 26 
Sekunden) durch die sefbstdefinierte Systemvariable 
ADDR 23681. Es ist 198 Byte tang, wird uber 
RAMTOP gestartet und eignet sich fur 
Spectrum (16 Oder 48 KByte) mit Inter- 
face 1 und Epson-Drucker FX-80. 



a) ein funfadriges. abgesch 

b) einen 9-Pin-D-Stecker 

c) einen 25-Pin-D-Stecker 

Loten Si e die Stecker so ar 
iegt sirid; verwenden Sie dei 
ZX Spectrum 



Programme! nga be 



Srtjnai Pin 

TXData 
RXData 



Ground 



FX-8 



— Pin Signal 

2 — 2 TXD 

3 — 3 RXD 
4 — 20 DTR 
5—11 2ndRTS 
7 — 7 GND 

+ 9V 9 — 6 DSR 

Stellen Sie die DIP-Schalter des E pson - RS2 3 2C- Interface 
folgendermafien ein: 

Slellung 



Das entsprifih? 13,100 EvnaI L,ii«iliMii.ir\;syesotiwindigkei!. 

So benutzt man das Programm 

— Programm in Beirieb nehmen 
FORMAT "b":19200: OPEN #3;"b n 
CLEAR 6493;; be? ~\v, ir.pswise 32199 
LOAD "hardoopy"CODE 

— Programm aufrufen ^ 
RANDOMIZE USR 65000 bezietmngsweise 32200 

— Waftlen Normal.'4fach 

POKE 23681,11 ^ 

Normal: <= n< = 127 
4iach: 128< = n< = 255 



— Maschinencode eingeben 

Das Program-ri ver-Avrdut nur daiiuo SprLinge, jedoch ist 
der Hex-Code tiir .CALL OUTPUT* beim 16 -KByte -Spectrum 
CD617E. Geben Sie CLEAR 64999 beziehungsweise 32199 
ein und laden dam das hYriijiamm mit einem Assembler Oder 
Hex-Lader (Sie haben sichor cmis von beiden) Liber RAMTOP. 
Anschliefiend NEW. 

— Basic -Toil f.ir S'i.Kjercodes 

Das Basic-Proc; :amm i ; '-'^l 'w DATA1 bis DATA4 die wirkli- 
chen Adressen ein. POKFt tt-h TaL-dk-! ds:i Druckerateuerco- 

des anschliefiend an das mc- Programm i.nc' SAVEt das voll- 
siiiridiye Hardcopy- Program- n aul Kassette. 

■ Mi. -rod rive- Version 

Ersetzen Sio in Zolo 9999 SAVE ir-ii SAVE '"m";1; 

Laden Sie das Programm nun mil LOAD * "m": 1 ;"hardcopy" 
CODE 

— Sie wollen andere Steuercodes? 

Die Data-Zeikin do-:; Ba.-j.i.i-'lbilo sind aach folgendem Sclie- 
ma aufgebaut: 

Zeilennummer DATA ramlop+Zabl, n, c(1). c(2), , c(n) 

c(1), c(2).: einzolao Drjckori.lei.iercodes 

n: Anzahl der Sleusrcodes in oieser Data-Zeile 

Sie konnen sich also Ihre hdivduelle Version herstellen, 
wenn Sie die D^ia Z(--ik-:-n arHsprcchniid abiindern. 

— Sie wollen 24 Zeilen ausdrucken? ^Suoc 
Fugen Sie zum Basic- Programm binzu j^ e 

1290 POKE ramtop+13Q.1S2 



Steuerzeichen 



-^T 



Zeile 100: 
27,33,0 = ESC : 

Einschalten de: 
27,108,4 = ESC 1 

Linker Rand so sei 
Ti"-s nodruckt wird. 
27,81,60 = ESCO 

Rechten Rand ganz auBen 
die Copy vorhanden ist. 



dafi die 4F-Copy in die Milte des Bl 



1, damitgenugendPlatziur 



62 ^SHsEisbi 



Spectrum 



1 


REM 


z>: Spectrin 




80 NEXT n 


2 


REM 






90 LET add=add+lentl 


3 


REH 


lopyright 




<?<? NEXT -i 


4 


REM 


984-07 Gun 


ther Rita 




5 


REM 






, 103,"*, 27, SI, 80, 27. 65, S: REM dat 


10 


LET 


amtop=P£EK 


23730+ 256*P 


al 


EEK 23731 


LET add=r 


affltoptl6B 


110 DATA ramtop + 161, 5,27.1.03,0, 


20 


FOR 


= 1 TD 4 




27,50: REM da.ta.2 


Z0 


READ 


data, len 




12.0 DATA ramtop+140,5,27,42,5,0 


40 


POKE 


data.l.IMT 


(add/256) : 


, l: REM dataJ 


POKE 


data 


add-256*IN 


T taOd/256) 


130 DATA ramtop + 9'?, 5,27,42, 5,0. 


50 


POKE 


add, ten 




2: REM dats4 


6.0 


FOR 


=1 TO len 




9999 SAVE "hardcopy "CODE racntQp + 


"• 


READ 


a: poke ad 




l,add-(raintDp + l.i 



.. und uierfach vergroflerf. 




■ ■ 


- 


s 


■ 


S 1 


■ 


." 


1 


P 


_ 


J 


L ■ 


k J 


• 


r 


1 


." . 


H 


". 


I 


■ 


- 


■ 


■ 


i a 


3 


4- 


5 


6 7 


8 


9 













a b 


c 


d 


e 


F 9 


h 


i 


J 


K 


1 


ns 




H B 


c 


D 


E 


F G 


H 


I 


J 


K 


L 


M 












f^i 










































iSgfe, 63 



Spectrum 



Addr 


ta 


Dp 
F'TRSt 


Operand 


; Ncti: 


FDE6 


-3E63 


LI 


6,63 


; DRUCKERAUS6ABE 


FDEA 


DBOli 


CALL 

PTRIH 


I: 


; UaHLEN 


FDED 
FOFO 
FDF1 


44 

CDSIF 


LD 

START 


HL.DATAi 

6, !HU 

OUTPUT 


; STEUERCODES FuR NQRMALKODUS . 
; LINDEN UND RECHTEN RAND S0WIE 
; ZE1LENVORSLHUB flUSGEBEN 


FDF4 
FBF5 

F'OrS 
FBFC 


F5 


XOR 
PUSH 
LINE 
LS 
7E BIT 
JR 


7, (IY+71S 
Z,+2>CQNV 


; PHELSEiHENZaHLER AUF 
; MW> RETTEN 

; PIKELPElMEU/ijPUCKERZEILE 

; 4F-CUPY '' 

; mm ; SPRUNG 


F0F£ 

FE02 


F5 


LD 
CONV 

PUS* 

AND 


B.04 

flF 

A 


; m ENIiE DIESES ABSCHNITTS 
; ZEIGT HL AuF DEW BEGINN DEP 
; FIX.SLRE1HL IM DISPLAY-FILE, 


FEW 

FEOC 
F.EOE 
FEIO 


Fl 

CB3F 
C63f 


PSP 

SSL 
SSL 
SRL 


CO 




F E ! 2 


Cb40 


fl.CJ ti 


A., 4 




FEI4 


b7 


LD 
POP 


AF 




FE16 
FEtG 


84 


ftNO 

ADD 


07 




FE19 

FElfi 

FE20 


FDCB4" 


LD 

LD 
COL 
LD 

El 

LD 
7E BIT 


H,A 
BE.FTREUF 

DE,HL 
EC 

6,03 

7, (IY+71) 


; DE AUF DEN DES DRUCKERPUFFE-fiS 

; BYTE fiUS DISPLAY-FILE LADEN 
; HL AUF DRULKERPUFf ER R1CHTEN 
;■ ZSW.ER RETTEN 
; BIWSHLEFi 


FSSii 


233D 


JR 


z,+&i>Espn 


; l;[-:iN I SPRUNG 


FE28 


CB26 


SLA 


(HL! 


i 7 PAPERPUNKTE 


FF2.A 
FE2E 

FE2E 


CB27 


SLA 
SLA 

JR 


A 
ND,+4>!-'E34 


; R£5£RVUR£N 

; PiKEL GESETZT 7 
; mm i SPRUNG 


FE3G 


C8CE 


SET 


1 , iHL) 


j 2 PRUCKERPUN^TE 


F£"32 
FE34 


CBC6 


SET 
INC 


HL 


\ SETZEM 

; NACHSTE ADDR Id DRUCKERPUFFER 


FE37 
FE35 


10FI 

EB 


DJNZ 
BOTH! 
POP 
EX 


-i5>FE26 

EC 
DE.HL 


| BYTE ABGETASTET" NEIN > SPRUNG 

; ZAHLER HOLEi-i 

i HL AUF DISPLAY-FiLE PICKTEN 


Hexadezimal-Listing zu »Hardcopy« 





64 nm& 



Spectrum 




iSSfe 65 



Spectrum 



" 6=0flQ 






















































6 tO 4 c. 












i-.-.OSi 




':■:■::=-:-: 








650SS 


EBJ 






77Z.J5 - 






1BF 


■?:;"■:■".; 














L. 


S.CD01 - 


' ill* 








>;■ 




■ I0y4 










Pi,-:, .■■■■l - 








r.?.--ci5 




i^OQd - 





Maschlnencode-Li sling tu uHardcopy" 

Falls Sie bei lhro:ii DriiOKer die Randei ii'dilsetzen kGnrten, 
lassen Sie dip St o.. 10 re odoa dan.- einiach weg. 
27,65,8 - ESC A 

Zeilenabstand auf acht veriikale Dotabs:iinde setzen. Da- 
durch sehlieRe-n d t- Diuc-jzeitu luckei'ilos. aneinander. 
Zeile 110: 



die Rander nichl tfitBi konneii. i;iy:,ei i St i.esen Steuerco- 
de einfach weg. 
27.50 = ESC 2 

Zoiionaostand au" r-.or.rialacsland setzen. 

Diese Steuer. ■■ i. ■ ■■■ ■ ■!■ ■!.■,:.: .. ■ i incbdem die Co- 
py ersielliisi, um den Drucker wieder in i.tinen Normalzustand 



Zeile 120 und Zeile 130: 
27,42,5,n1,n2 = ESC * 5 

Einachaircr"! dor, '?. l\adol ■ h ; !■. N : - v. ..Jls Die Zahlen 
n1 und n2 errechnen Sie folgendermaSen: 
n1 = Byteanzahl — 256 * INT (Byteanzahl ,' 256) 
n2 = INT (Byteanzahl .'256) 

Byteanzahl pro Zeile: 
256 bei NormalgrbRe in Zeile 120 
512 bei4fach in Zeile 130 

Im Plottergrafik-Modua sind beim FX-80 die Dotabstflncte 
vertikal und horizontal gleich. das heiBt es entateht eine 
1:1-Copy des Bikischirms oiinn Verzerrungen. 

Wahien Sic bo hrcrn Drucker oinor com -'iotlen.iraiik 
Modus des FX-SQentsprechenden Mcdus jrd setzen Sie die 
entsprechenden SK-aerzeichen in die Z=iien 120 und 130. 

Mi! Hilfe dieter Aulsfolluiu; konnen tie da:s Programman lh- 
ren Drucker anpa&~t:i n ■— ir 1 1 i t allerdings, daG 

Ifir Drucker die Druokn;:doln in dor Cjri-'jcl-ie."i Werse wie der 
FX-80 ansieuert obere tsladel = Bit 7. 

Falls Ihr Drucker den Steuercode LINE FEED (CHRS 10) 
nichtkennt, schalton S o liiror, Drucker r.ul automatischen Zei- 
lenvorschub und fiigen Sie zum Basic-le.il folgende Zeile 

9995 POKE ramlop+116,13 



Tips und 
Tricks fiir den 
Spectrum 



In diesem Artikel will ich eine schon 
uberfallige Zusammenstellung nutzli- 
cher Tips fiir den Spectrum veroffentli- 
chen, da ich diese sehr haufig gebrau- 
che. 



MuG der Cursor ::■-. n ProgiaiTms-on hr-.r.nundschnellbe- 
wegt werden.. so empfiohll or; sich, dossc;-. Geschwindigkeit 
miltels POKE 23562,2 zu erhohen. Die normale Geschwin- 
digkeit iat durch POKE 23562.5 loich: wilder herzustellen. 
Der Taslaiurklick ist durch POKE 23609.6 zu vetlangern. Der 
POKE 2365.fi aelvk.vl aid Grofioucr.aiabi.'n urn, der POKE 
23658,0 auf Klein biichsrabon. Durch RANDOMIZE USR 
wird der RAM I I d 8 ^ich ein 

66 ante 



des Steckers erubrigt. Durch POKE 

23692.255 kann dor Rildschiuu?55malabgo.scrQlltwerden, 
ohne dafi dieaer die SCROLL" F.-ac.e slelll. POKE 23617,2 
schaltet in den Grafik-Modus u. POKEt man in dieselbe 
Adresse eine 0. so erh&h man con cweiterten Modus. In der 
Adresse 23560 stcht der Code der zuletzt gedriickten Tasle. 
Mochle man die AnTanoskooidinaten einei Draw Anweisung 
beslimmon, ao braucht man nur in die Adresse 23677 die x 
und in die Andresse 23678 die y Koordinate zu POKEn. 
Mochte man scin Raijio-Prograinii vor fremden Zuoriff acini' 
zen, so bieiet POKE 236ba.C cino Mcq/ich'Kit Driiokt do; 
Programmbenul/er ririrnlioli dann die BREAD-Tastc. so gibt oa 
einen System aos '.:(■-: Nur aollie man tunlichst darauf achten. 
daG wahrend don A&iauf dor- Program mo a keino Meldung auf 
derunterstenZeil? \a==- '>A-.a-r, e;:;c:'eio:. \ in Input An- 
weisung ausdem ROM sollte man vounoidou. oder uorher den 
POKE 23659,2 durchflihren. Mit dem Befehl PRINT PEEK 
23730 + 256" PEEK 23731 laftl sich der der/.eiiige RAM- 
TOP feststellen. Mittels PRINT USR »a- lafSt sich der Beginn 
der UDG Area fesrstcKon. Urn foat<:usteil(.Mi. wievie! Bytes ein 
Baai c- Prog ram m verbrauctit. bedarf es dem Befetil »PRINT«. 
Das Programm ist »;2S6* (PEEK 23628-PEEK 23636] + 
PEEK 23627-PLLK 23635:- Byleslang. Un ein ZX81-Scroll 
zu simulieren, mu(3 man nur die beiden Befehle POKE 
23692,255: PRINT AT 21,31 ' ' AT 21.0; eingeben. Gibt man 
serirlangeSlringsiunoriiriboiros Pio^:'--ri'i-ics oin (liingerala 
derBildschirrn). soisles^-r.sam d.?n W.-i rr.ro n auf ein Minimum 
zu rcduzicren. Dies goschiefit durch POKE 2308,0. Durch 
die;;o Tricks kann acs Piocrai'm -i ■ - - 1 1 beqi. energestaltet wer- 
den. (Knut Bachmann) 




1 



Ein »geistreiches« Spiel fur den 
| 16 KByte-ZX81 

is Spiels; Punkie. Punkte, Punkte ... Es gibt 12 Gegner. 
■sten Runde sind siedcrch dp. '. ■ , .ni . - ■ i- i ■ ■ i ■ i . i ■ ■ : . 

| stellt. Spater we:, hae.'t da:; ■-■■on Runde ili Runde. Spieltasten 

I *S, D, E una XV was n r da:; Scrm-ilstE- erschien. Mit »P« 

| kann man das Spiel unlorrv^cnon unci mit NEWLINE beginnt 

es von vorn (Ausstieg aus der Sclileife ist mit RUBOUT m6g- 

ich, was aber keiner wissen mufl!). 

In der Bildmitte ist mein »Haus«. Hier beginne ich das Spiel. 

| Auf Tastendruck ziehe ich aus, um mir d-.c =Gcister« eirmifan- 

m, diewirruboidon >A;,!-e^jai.'peln. Jenachdem, wieichih- 

ffi begegne, sehen sie mich und weichen aus. Es gilt, mog- 

| lichst viele zu fangen, bevor car, S blinkt. Das S ist der Schliis- 

3m »Haus«, ohne den ich nicht mehr hineinkomme. 

:u hclen, kommen alle Geister. die 

■n Durchgang) gefangen habe. wieder frei. 



In der 2. bis 10. Runde ersckeiiien die -Gc-'sierKJeweilsh 
neranderen Verkleidung (SymbolweGhsel!), In der 11. Runde 
beginnt das ganze von vorn. 

Die Geschwindigkoit ■jisifiert sich -ran Runde zu Runde. Al- 
lerdingsfalltsienar.h if; 1G Rjiidenvviodeiac. iedoch nicht auf 
e'en Anfangswer;. jicsof ■.vir'c.l o-"st lach der '00. Runde wie- 
der erreichi, falls das je jemand schaften sollta 




Spiel b eg i 



Habe ich den Schliissel, passiert aber »Schreckliclies<i; Die 
iibrigen Geister machen sofori kehrt und kreisen um mein 
Haus — mal links, r-^l ischts her urn. bs ■.•.■ird mir rechtschwer 
gemacht.hineirivi.ikcmrnen. Eir ich ace: i:n Haus, so bleiben al- 
le Geister, die ich in diesem Durchgang geschnappt babe, aus 
demweiterenSp'ol-ioi;-,!,:-, Sic- wordpn Lins-demSpierteldab- 
gelegt. Wahrend der gp.rze-i Z-:-r. ■■.■■orkiir?! sich ein Zeitbalken, 
der unter dem Spielleld i eg'. Habe ich alio v? Geister gefan- 
gen, bevor die Zeit abgelaufen ist, geht es in die 2. Runde! 
Schaffeichesniehi, ventre ich -reirer Spicier. Da ich deren 
drei besitze, die oben rechts am Rand auf ihren Einsatz warten, 
geht es mit dei 2. Spiolfigur woitcr. Hubs :ch keine Splelfigur 
mehr, ist mein Spiel zu Endeundder 2. Spieler kommtzu sei- 
nem Recht. Wonri dor Punkle^-ind h d he r als der Hoc hs Island 
ist, erfolgt ein Ubertrag. 




E'RSTELL-JKG D£S> ^'Crt-SE'EHLS * 



~ ^03© 1350 i; 

» ?■■■>;.■= ;-.;-- 3 a •:<;.? o ~,: : ?.-.■&■■-:-. 

3 POKE N,UfiL RJ i TO 3J 

■4 LET fi$=R£(4 TO ? 

5 NEXT N 

5 RRNC J&P: 3*3080 



&XB EIN: >PCKE IESI9..e< 

■JETZT KRNN DRS LRDE- UJ4& LSUF- 

,.,... l,. :■■":■■ ' =:~--. 

WEfiDEN . 



UQM P.RICHTER 



Prcgramm zur Erslellung des 
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PETER RICHTER 
RH MflUBISHGF 22 
4-344 KfiflRST 1 
02101/63857 



114.20819771900004137637 
ED5277155I7563F772310690 
FCC9117D44CD7R43CD1B1329 
'7119R44CDR3430r 



2310FD36RD23060S237781: 

.i3--"':-;^4.B.ia23£54sa377a«e 

23232323369E3E1C2R0C596 

: 011630215060623 7713534 
FC2B2279414D06 1023 18788 
-.■■OCT- 6 2 377 10FC2B227E 1020 



52462 1124522RB41RF32943 

CD400603CO9F4.610FB2R1181 

0C482323361C23361CCD730 

1F47CD7F462100007E32903 

C54.iS;£:.iFESr-S'3.S5 060fl2BS61 

10FO22RB41ED5BBC402R1195 

. .... ■ 5.3C200B743 

lBlRfElC280C21C80fl 18876 
&D063C2B18FD1&068S96817 
232310FC22314.73E262R884 
0C4823232334BE280fl2B768 
34BE2002361C23361C2R787 

:;-;. ; ■■■■:, :::..:: ■.- :. .-.:■,■ : ?. : .. 7337-7 

= F.563 5! = :3.ii3F3 = 323230D794 

23 F= 3 2 his. 4.3 11. .53 119 11 775 

1E3001220322D2400936746 

072322E0432336S42322974 

D3401922DR402322E2401313 

2322DE481922D648S33S1121 

S22322DC402336S109221094 

D4402R0C4035 1223 10FD 1062 

068D3608008000aB18FB7S0 

7832C8402R0C403RCS4012S1 

4F113E4236SCC51R233D1031 

20FC22B2403A7R4206051169 

3C10FD387R-42C 17113101318 

5"i53CD2081R061C848010fl7 

■ ■ ■ ■ "..■■.■..■■ :■. .■ 

2R0C401 17300 1922BE40 1003 

-363 352 3 1*0 11050021851063 

i.z.-:<i:?.c:--,'?.-?< ■ ■ ■ 3:= 53 ■■&■:.■::= = 

401 1F802 1906203683231034 
10FB2B22CF403E0432D11428 
432 ICC 43360fiaB36402fl 1122 

75367722930 
C24032C440RF32E4403E1657 
050E01060C2134403DFE1102 
0820023E0477F57923BE1340 
2001353D237723a323F11137 
10E37721C643 73= 377.12 5 1555 
23702336 163EO132CE40 1281 
CDSB47FE76CRE740FE00210B 
25Fi5 39C-4 93RC740FE081864 
2004 11D343C9473RC840 ISIS 
80FE0C200411E243C9111558 
C543C90604CD5643CDS6179S 
4310F3C90604CD6243CD1737 
8643 10F8C93E0018O23E 1446 
30C5O52R0C40062123101386 
FD0620237710FC 1328051624 
DS2R0C4806C52310FD 18-1523 
05C5D52R0C401fi233D201357 
FC 13 1RFE76280577 1323 1567 
18F6131R13FE002BE9CD175G 
274 7D1C1C9C5DS2R-0C40 1941 
060923 10FD0E0C061523 1280 



17335 
1734 5 
17555 
l'.'3i=5 
17 37 5 
1733 = 
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Punkle gfbt es pro Gelst t>0 beim Fancien. und 50 beim 
Nachhausebjinyor; ''■■■Vein alio 12 :o.=.chnappi sind, wird 
Best des Zeitbalkens eben tails h Pu-kie L.mgesetzt. Sollten 
Sie beim Probe-Spiden nidi! ii:>er die 1. Runde hinauskom- 
men, hiereinTip: Von dei'Seleuberliihri inii.'idieKerleambe- 
sten, es sei dem. sie sehen sioh rjerada :itiI Ansonsten gilt; 
iiben, uben, Oben... Viel Spa8 dabei! 

Obrigens: Beije 10000 Purtkten gibtesein »FrelSpseI«, Bis 
zu funf Spieliiguren werden angezeigt. jede Figur mehr rw re- 
gisttiert. 

(Peter Richter) 
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PRINT "STRRTRDRESSE ?" 




INPUT R 




SCROLL 
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FOR N>fl TO 19360 STEP 10 




LET 5UM=N-16615 
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SCROLL 
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PRINT N; " ■ "i 


10 


INPUT (it 

IF LEN S»<23 OR LEN PSI24 T 


li 


HEN GOTO 10 


la 


PRINT AS 
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LET 8=0 


14 


FOR C*l TO 20 STEP 2 




LET DaiCODE At iC 1 -28) *16+Cu 


DE 


iC + 1) -28 


16 


LET 5UM=SUM+D 


17 


POKE (N + B) ,D 
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LET B*B + 1 


19 


NEXT C 


sa 


IF SUMO URL Fl* (21 TO i THEN 


GOTO 23 


21 


NEXT N 


aa 


GOTO 26 
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SCROLL 
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PRINT " |FRL5CHE EINCR 


Be 11 
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GOTO 7 
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CLS 
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SLOU 
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PRINT "SIGHERE DAS PRuGRRMM 


AUF 
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"'« 


>TA5TE F\<- 


IF INKEY*="" THEN OOTO £9 


30 


IF INKEy£="A" THEN GOTO 32 


31 


OOTO 29 


32 


SAUE "I ZRPPEL ■" 


33 


RRND USR 1651S 
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CLS 


35 


PRINT "NOCH EIN SPIEL ? id/ 


36 


IF INKEYS*"J" THEN GOTO 33 
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G OT 036 
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** DATEN8YTES = ** 




** BRUCKPROGRAMM ** 
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LET R*="167eil6762ie76&1676 
■ \aS i :^ 1 7 9 3 .-■ : .-'-:-'i.?: 7 39 5 173961 
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S0 IS 1S0 1313021 18022 1S040 13 149 181 


5'318£.731'3360" 
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FOR N*l TO LEN R| STEP 5 
POKE UAL H( ( TO 5! ,0 
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LET A«iA«<6 TO 1 
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NEXT N 
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LPRINT "** HEX-LIS 
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LET Y=71S 
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LET X.1S615 
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FOR H«X TO X+Y STEP 10 
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LPRINT R; " I "; 
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LET S»fl-166SS 
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LET H«="00" 
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LET P=PEEK (fi+Sl 
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IF H-fB>=19353 TH£N LET P = B 
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LET 5=5+P 
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LET H=INT [P/16J 


125 


LET H4(N)=CHR* iP-15*H+28> 
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LET P=H 
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LET Nal 
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IF P>0 THEN GOTO 124 
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LPRINT Hj; 
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NEXT B 
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LPRINT S 
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IF A+BH9358 THEN STOP 
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LPRINT 
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LPRINT Lade- und Laufprogramm 




LPRINT zu Zappel 
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RETURN 
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ZX81 

Statistische Auswertung 
von MeBreihen 

Bei der taglichen beruflichen Arbeit mit statistischen Auswertungs- 

und Analyseprogrammen, die in APL geschrieben sind und uber Netzwerk- 

terminal auf einem Grofirechnerverbund laufen, stellte sich die Frage, ob 

sich zumindest ein Teil dieser Anwendungen auch auf einem Compu- 

terwinzling wie dem ZX81 mit 16 KByte RAM in Basic imple- 

mentieren und nachvoll Ziehen lassen konnte. 



Anwendungsbeschreibung 



Ich habe den Versuch untemommen ausgehend von der "brigen wurde im ZX-Programm r-.aiudieh einiooo. woo hci dor 

aor- An-ondona ^,ih^.<r:v air, ,aohra-lig 

indorteehnisoheaSoiiorikambaiJ.aoasnasaalyfsa Anweri- <-'T:p : "hdcri wurde. (jphrnicrl and umgeoloilel. So wird zum 

dungen, das AusY.-erten i 1 Z 1 uiiizl:- F f ' " n zah lends 

swertung 

Stat tk] Die i nterdriickt. 

2X Programme li.:i al.a!io;oohe Anweiiourioei: go plan' sin Nich: eraia i ; ■ ■ . ■ . ■ ■■ i ■ n , ■■ ■ ,g oei 

md p t6 | | | | II Paramelei aVHiaiwer I 1 in i I i i Im I 

dio :;tatistia.oho Answer ■**& wurde im ZX l-'iooamm /usatzlich 

zum GroBrechnor prok'.'seh kie.aliaehen bryobnissen. mitaufgenommen. 

Natijrlich mufiten oir-irio Zi.%:";r in r ; :"i ■". ; . , i >; i ■"; r~ a Ksi.f oenom- 
men werden. Wanrend der GroBreaiiner. iaedingt durch die 
Vortcilo dor Spraehe API Isoiir sanrelle vektoren- und Matri- 
zen operation en) unci durch die; hone CPU-Geschwindigkeit, 

prakti 'I sofo. n. hS 'nfi ;. .V] l";,vi ■■e-f-ing i hi Das Programn is! seibstsiaras-.ad und meidet sich nach 

gehmsseliefert. kann diesbeimZX-Progrsmm. io naoh Anzahl Rcendcn deo LadevdaaiiseoeLilornalisolimii seinemTitelauf 

der eingegenc-nc-n Worm u.ator IJri stood en /iornlioh lange dem Display. Pow rsJ woforl r.:ef :■-■."'. obeirie Prolol-a.illieajngaLi 

dauern. AufJerdem muBte die Anzahl der mc-glichen Meftwerte einem angeschlossenen Printer gewunscht wird. Die Beant- 

auf maximal 1000 begrem--l ',w-rden da hienritoie veriaaborc worli.ng dieaer Paige mit -iNeins laii" die aesan-e Answertung 

■ ! = i ■ i : - ■ i : I ■ ■ . ! : 'i i :■ i.. ;■■■!■■ i .i ikli: . h onsoelaotei isl, nurauf dem Bilds.ahiriaeroanoiner: Wird dagegen mit »Ja« ge- 

'jv:ihiieii:Joc i ir i ii Gi i. i ■ i Aii .i i '!■.■'-■■' ■ ' ■ i ; Igt in /■.oileron Abla . i. ■ i : as Mjsal/- 

isi dor Grerzwert von 1000 .air die Prax a durchai.o akzepia- lich ein Ausdruck der Auswertungsergebnisse. 

bel. Die Druckrou virion and -ur ac-a ZX-Drocker geschrioben 

Auf eine automatiscrie Klassen ein tei lung von ungruppiert worsen. ■ ■- ■■ = i I a'ieaer die Maa. aiKeitbietet. durch die doppelte 

e.'nqcqcao.aer Mi,(iwe;;ea. wie aie der aroiie Bruder vor- Aiiflosung mil Hille des -Pi {.IP-Resales Ra.'kendiagiaranie 

nimmt, wurde va-.viohto; heben dem hierlur lehlenden Spei- sehr go: da^uslelien Durch Umaekreibeii einigei Siatenreata 

eherplaly jdie Anaa.al n onlioher VioGwaoe rial I o son a or hob ist IC'CTi emc A.apaosang ar: nr.dcre jn leke-' /a errcichem 

liah verraigealwoidei: 'uusse.a': spieive iu dieae Lnlaoheidjng Nurwennein Druckeraroialajll qowunscht wurde, wind vom 

auch act Aspokt cino Hollo, dafi bei dem Kapilei -Klaaseaein- Rochnai eine De/eiolinour; dor Meiireihe eri.'ogi. Dies soli die 

leiluna von [viol; morion-- acoon rroiho- nalischen Grundlagen spatero Zaordooiig bei nehierer- Auaweiiaiigen erleicb'ern. 

audi eine Pcrtica Erf.ah.aiag and Cofi'jhl ino Spiftl koroial Dos- Dicao £ noobo kar n maximal 3? Srollon lang ooul; is! Sie zu 

balbsoll dieaoaTbon-.aoiaoaispa-a:;oi ero:e tender: onoo.ca lano. wird s:ecarcb rre So'avaie ao: -32 S:e'ler geKurzt. Wird 

riuf mil aieaer TTerra: -, acfaasoiii i: i ■■■!.■. ■■ ■ aa ■ ■ n ■ ■!.;■: vai i < in I .an ■ i ' ■■■■■.■ - 1 ■ . I « airiijoye 

werden. ben werden. Die Aysgabe der Bezeichnung erfolgt auf dem 

Auch aul loala aoa.oa Tolera'-zg-eazen vjurdc vorz'Caloa Draokor and aril dem Bildschirm. 

Aaaor.aion liafori riao Progra r>n .edoab ioi die eingegebenen hJachdem die Angeiegenheit mit dem Druckerprotokoll ge- 

Meilieiaei'e'neVielzahlvcr, iiforrfiaiior.on lurdon oioalliallon raaol: iii:. wil! aor Pocar-oi orlolaon. ob dio Worlo in gruppiei- 

Staiisliker. ter Form IS: aoNiaioi .. .: ; I i ■ ■ :. :ar" \N&tr ja. fragidor Roohner. um 

Dieunter Urrir-ilar'.dei! sob: lange ..ai.rzeil bei aoRer Anzahl wieviele Gruppen ea sica har-delt. Aascblieliend werden fur 

von iv"oR'.»/orlen isi ILir den Hobbybereich praktisch bedeu- die Gruppen jeweilspaarig die MeRwerte n.ad -:\.o I iaafigk.oiton 

tungslos; hier sleht ja normalerweise nicht der Zeit- und Ent- derselben in ihren Gruppen eingegeben. Bei grolien Haufig- 

aahoidangaclri.iok. vae or in. Gesora'ts.abaa o!t an derTages- keiten weaa -i i i ii- ■ -m ■■ .i :i i .■.■!■ . i: ■ i . ■■! :n, "lunn Einga- 

oraaar:: iai. hinro.' dor Auooverluay Man liridel ia doi Facal - be:", oteaa laager, vvoi; dor I UiobiiO' oraoproohand eft don ]o- 

tcratar OiOhoriioli auoh Kaborarasiorvio.n. dio in ainaai Basic- weiligen Wert erzoarion mi.fi. Wordo dio Frario aaohderGmp- 

Programm ein;;a-baui. aobnollor /a I rgebnissen luliien: aller- pieiong -nil. *Keiri' beantwoaeL aiui) deir Rechner bekannt- 

dingsgea!li:arboiofll:iTom:aaan a r ,a. .i . ■■ ■/orloi a Ira gogo:;; i :v i ■ I. ■ i wi.;aiolo Mclir.vorif; aorliogon. Danach sind 
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Vergleich zwischen ZX-Programm 


und GraBrechnerprogramm (APL) 






hinsichtlicli der ausgegebenen Resultate 






»• *■-" 


vm***x&m.l 


»«»*** «* 


unoMbau. 


r,500V 


•»..,5Q.u«„ 


M«»„ 


ZX: 
APL: 

ZX: 


43.0 B25 

43.05 25000000 
43 


„,.„ 


*i 


13.4264000000 


warn 


APL: 


e^s" 9 ^ 8 


Varan; 


APL 


0.013175391 
0.01 317 5390S 


sia,bw,n,»„ 


A 2C 


6.0625000000 


Std.abweTcriLing 


ZX: 
APL 


0.11473411 










ZX: 


0.3549135 






6.5937978 










APL: 


kelne Angabe 






-0.043721135 




ZX: 


—0.1120693 






— .0437206839 




APL 








— 0.03293B245 




ZX: 


—0.57192041 






-0.08293S21Q1 














Spannwelle 


ZX: 


10 




APL: 


0.70000 OOOOO 






10.0000000000 






13.07 




ZX: 






APL: 


13.0700000000 




APL 


33. ooooo ooooo 




ZX: 




GrSGtor Wert 


ZX: 


46 00O00O0OO0 


vb r. MRU* |u) 


*2t 


!34™3lT 000 


VB f. Mitte!w.(u) 


"1 


:HEi 405 ° 


» tMMKM 


ZX: 


ItiSll 










ZX: 




wt ***■*« 


ZX: 


Z0974733514 


VBf.SKL.bw.lo) 


A zx L 


012237772 39 


* t *** W 


ZX: 


^4013312375 


VBt.SChiefB(U) 


A ^: 


0.1223777209 
—0.257783 


VBt. Schiete(u) 










— 0.257787546B 








VB t Scheie (o| 




0.17034573 


VBt. Schiefe(o) 


APJb 


nSuaMTTIM 


VB (. Wolbung (u) 


A zx 


0.1703461791 
—0.51023013 












—0.5102301421 








VB t. Wolbune (d) 




0.34435369 


VB £ WOlbungto] 
Test auf NV 


€ 


rj i,.ij-ii,.,0[:e ;u «tein 


Tasl auf NV 


i 


0.3443537210 




APL 


"'!'.:bL;n:;iolJ« zu Klein 


r-iadiQKoitstabelle 




Werfe ZX und APL identisch 



dip einzelnen .Vii-I? ■■/■.■■« r;e einzi.odx^n in beiden Fallen er- 
scheint die jeweiis ,-rLne tiri^be unten auf dem Scbirm und 
wird mitjeder woiteren L-.inyabe mi- ei-iy "die nach oben ge- 
schoben (Scrollcn;, Da-lurch isl em llber.oiic-; uber die Einga- 
befolgegegebon. Beioingoscnallclor-i Piirmprotokoll erfolgt 
eine zeilenweise Ac' lis ■ Ling do.- Eir.gabor niif dem Urucker. 

Die Dateneiny.ibe mui'j sehi sorgldiig eriolgen. Aus Ruck- 
sicht auf die Verarbeitungsze-i wjrde aui sine vollstandige 
Syntaxkontrolle durcli da;- Programm ve rzicbiet, esistnur die 
dem Rechner eigene Koriircile ■.■■-■ irks am. Sollfe man sicb ver- 
tippt haben und horeils die -NL» lasie iietatigt worden sein, 
bleibt nichfs anderes ubrig, als das Programm mit »BREAK« 
oder »STOP«;ab:n,bieeher,. mit :-RUN« neuzu starten und mil 
do,- Eingabe neu zu beginnen. 

Sofern die MeBwerto bcrciis h eafsxigend sorfierter Form 
vorliegen. empliei-lt ss sioh. die-s-a aach in Cieser Reihenfolge 
einzugeben Das Programm merit, da's die Werle bereitssor- 

tiertsindund vii ieh' i i eig len Sortierlauf. Gerade 

bei grolien Datenmengen kann hierdereh die Programmlauf- 
zeil betrachtlich vermindert werden. Bei ungeordnet eingege- 
benen Werten tuhd di.it. Prcgramrr: eine Sortierung der Daten 
nach dem sShell-Metzner-Verfahren<: dcrc'i: damit kann sich 
die Laufzeit gegei-:Lbi.-r ::e.- aor tier ten Eineiioe, je nach Anzahl 
und Anordnung der Oaten, jogom'jboi dor t.orlierten Eingabe 
etwa vervierfacben. 



Sollfe die An: ah! ■:!■ ,ei die n classige Anzabl 

von 1000 iiberschreiten, gibt der Rechner eine Fehlermel- 
dung aus; das Programm wird ohne Auswertung beendet. 

Nach AbschkiR der Dateneingabe, die vom Rochner gemel- 
det wird, isl die »N'I ■•■Taste zu betatigen. Der Bildschirm wird 
dunkelundder Roehik:r widnie; sici nur: iri-t ganzer Kraflder 
Auswertung. Damit hat er unier Umstanden eine ganze Zeit zu 
tun(1000sortierteinge,:jooor;eWertfbr:neiiyenetwa7Minu- 
ien. die unsortierte E nfjiibr- ■::-::\ eleichen Werte fuhrt zu einer 
Rechenzeit von etwa 26 Minuten]. 

Dann erscheinen die ersten Ergebnisse auf dem Bildschirm 
und gegebenenfall;? audi ar.l deiv Drueker Dose Ergebni-r.se 
stellen die wicbtigsten slatistiscben Kenngrofien dar. Es han- 
oel: sich nierbai ■.in folgonde An^aben: 

— Anzahl Me8werte 

— Mittelwert 

— Median (Zentralwert] 

— Varianz 

— Standardabweichung 

— Var : ar-oii3koeffizicni 

— Schiefe 

— Wolbung 

— Spannweile (Range) 

— Kieinstwert 

— Grolitwert 
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Die Bereclinu-ig dei s;n,:el:i«r- Parameter erfolgte nach den 
allgemein giiltigen 'ji^ in der ;;;angk:en I acKiteratur enthalte- 
nen Formeln. Eswirdd -; n ax in; si rr-Jnliehe filolk-n/ahl ausge- 
geben. au* cine D.ifohrSnki.ng, ■■::':' Doi.ii-sl^oilori durch Run- 
dung wurde verzichtet. 

Nach erneutem Betatigen der »N/L«-Taste ist der Rechner 
wiederum kurzlris'A: ineschirkiL-'. und nede; sich dann wieder 
mil einem neuen Block von Ergebnissen. Jetzt gibt er die Vcr- 
trauensbereiche fiir den Mittelwert, die Standardabweichung, 
die Schiefe und die Wolbung unter der Annahme, dafi eine 
Normalverteiiung vorliegi, mit !);-;pro/i--riliger (/weiseiiiuer) 
Aussagewahrsr,hnin!ichkcil aen. Diese Angaben sind fiir den 
, ', i ■■ ■ ■ i. .. ■■■■.■. ill. ■■■.■ ■.'!■■■ ;. . .. i . ■■ :i !■..■■ . ,11 ■: |. ■ 



um Ergebnisse aus omo' Sticnproho 'landelte und Riick- 
schliisse aut die Grundgesamihe '.. sus de- die Stichprobe 
enlnommen wurde. gezo;;ei] ■■/.■■« r den sol/en. Die Verlrauens- 
bereiche zeigen an, in welchem Bereich sich d'e taisachlichei i 

Wcrto dor' GrnndgoWi'-ithoii POvvogen konnen. 

Nach einem weiteren. »N-i_- wird das Programm veranlaBt, 
die vorliegende Me:3rei.ie aui cks Vb.'lieger airier Normalver- 
teilung zu testen. Dies funktionierl jedoch nur, wenn minde- 
stens30 Wertei'orii'iger-. \-A dies nJc.'it der I all. teilt der Rech- 
ner mit, dafi die Preljengrdi'te 'ur eii en Tesi auf Normalvertei- 
lung nicht aus.'Oiehl. Wfir die Monro;. ho nmrangreicher, wird 
das Testergebnis in dor unicr Siatistkcrn abkehen Formulie- 
rj'iij a.isgegeben. 



*mm«m, 




~T~~~~ — ^__J**«mxrt>a_____ — - -—5 
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c,,.,,.^,,,,, j 
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~~~T — — -J*^_— --"V" 
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Der weitere Programmablauf, der wiederum mit MiL« ange- 
atoBen wird, hangt nun von der Art der Eingabedaten ab. Da, 

wicschon eingyngs erwiihnl, iiu' eiae auiomalische Klassen- 
c-intoilung von ungrno;- oron Worler verziobtet wurde, ist fur 
diese Daten die Auo-wo-raino an diesem Punkt zu Ende. Han- 
delle es sich jecoo.o ::;:. don oingegebenen Daten um grup- 
pierte Werte (ma.'.hral l~. Gruppen, -;to n dor -rax:;, durcbaus 
iibliche Zahl), gib! der Recriner nach kurzer Denkpause eine 
H;ii.:f;fjkeiisrabeile a.is, die neben der absoluten Anzahl der 
Werte in den Gruppen auch die prozentuale Haufigkeit pro 
Grlippe und die aua.^;un>i.:lierle Si..r-inie;it:auligkeit der Grup- 
pen enthalt. Die -rcientan.gaber s.no aul zwei Jezimaisieilen 
gerundet. Sollte das n:!:riueiie fenmed-non der Finzelhaulig- 
keiten zur Summ>^ihauficke : : aj ; addierl keirie genauen 100 
Prozent ergeben. sender-i viT.ii -ont nur 9'ri, 93, liegt das an 
den im Rechner auftretenden Rundungsfehlern, die ubrigens 
ajch boiiT Grofi.-oo'irerprograiiri" vo/handon sind. 

Im AnschluS ar iii'S I lajligkeitsiabellewi'.jrnitdemnunmerir 
SChon Qbligalorischen s.\l-U are Ar.snnbe einor Bnlkengrafrk 
angestoRen, die dip relaliven Hiiufigkeiten der Gruppe noch- 
mals da'o;o'L iiat Progran ti bor .oka ohtig! hiorbe: die darzu- 
stellenden Werte unci sona.tot air oinen ooo^gncten Mafjsiab 
mil eiitsy-ect'ender Skalierung. 

Damit ist auch die Ajswerturo. or." grappierten MeBwerte 
beendel. DerRedirier Iraglnoeli an. ul) eine weitere Auswer- 
tungmitneuen Daton gowi'msonl wird. Wennja, kann mit neu- 
er E^gac-ewe; r.en '.,dui von '.-o.-ne angelarcen werden. Im an- 
deren Fall ist das Program ■.■■olistandig zu Ende. 

Programmbeschreibung 

Im Hinbiick darauv dali moglichst viel mit einer moglichst 
groBen Datermienge inaehbar ss'i sollie. wurde von vornher- 
ein versucht, mit dem zur Vo'ugi mr- slehenden Speicher- 
platz inog'ii'iiol ^kcnc-'iusch arnzi.gene.i. Deshalb wurden 
zi.irn Deiopiol hiii.'f o bcnoogto Za.nlerwcrtc im hitialisicrungs 
leil des Program i a.:. Varablen zagewiesen. nrehrfach beno- 
liglc Fnnktionon als Sid;:;;i;lnon gosobroben. groRe Zahien 
werte und Fbrmeln mit solchen Werten al;; Charactc-rsHngs m 
Verbindung mit dem iVAU-Befehl untergebracbt und in IF 
Bedingungen »IF A = THEN...« mit der sparsamen Scbreib- 
weise bIF NOT A THEN . - gearbeitet So blieb noch etwas 
Freiraum (fir REM-Zeilen, und da das ganze Programm ziem- 
hofi oeradlinig durelNai.len w>rd. diidte es kein Problem sein, 
der. A o;-: I., i r-i. durchschauen. 

Das Programm benotlg- erwas .iber 8 KRyte Wahrend des 
Laufes wactistes ai;eidiii:.;s di.ircl: das MeBwerte- Array auf et- 
was mehr als lb KByte an. die Spoicnerkapazitat wird also 
praktisch ganz ausgeschopft. 

Es wird uberwiegend mi »FAST«- Modus gearbeitet. Aller- 
dings wird ein lnpi.i!-B;-t-:.-h- in ^llgon. einer im B.SLOW«-Modus 
abgearbeitet, um eine llackerireie Fiagaoe zu erzielen. 

Das Druoken cjescnie.-il meist rail -COPYs vom Schirm, da- 
durch erubnolen sich /uaieis! sr.e.-ielie Pnnlroutinen. 

Die Errechnur.g dm Vertrnuen-.berr'ieh-;"- und der Test auf 
NormalverteilLing geool'.rhen bei :n.-v..iei e- Vo-oehe'isw-o^.e 
Liblicherweise unre- Verwo'.ndi irg verooniedener in derstaiisti- 

schen Literati! r entailer i ■ Iwf ■ mlangreicher Ta- 

bellen (t-Werte. u-Weiie. chi'-Werie) Dies* "abellen wurden in 
einem Computer proyra'-mii sr-Hir vfel .Speoaerplalz beanspru- 
cben und sine deshalb soy:rn Grc-3rechne.'programm durcb 
Rechenalgoritlimen crsetzt. So wurde auch beim ZX- 
Programm vorgogangen. Do er.fspror,honden Algorithmen 
sind einem seh; guien Faol ibi.,o'a IM. Abramowitz, Handbook 
of Matbematical Functions. U.S Department ot Commerce, 
Nat. Bureau of Standards; enrnon.Tien Fiir kleine Freiheits- 
grade (bis 3) werden die Tabeller-iwerle dire-il veiwendet, dar- 
uber kommen die toilwo so reeht iimfangreichen Formeln ins 



AO A3 


ZiffenwBrte ... 9 




HiSfsstrlng 


BO ... BB 


Zahlenwerte 10 ... i9 


BS 




CO ... C9 




CHI 




CHIO 




emu 




00 ... D2 






Absolute An;. Werte t Hautigkeltstabelle 






FG 




F2 




G 




G2 


Wblbung 


GS 






Eing.Tnr. ur.d Hillf.v.n nl-lo 


F 


Shlerowsrt 10o° 


JS 




K 




LS 




























SlablUnge im Balkendiaaramm 




Spannwails (Range) 


s 


Steueruariable (. Skalierung im Diagramm 


SA 


Starida:daliw(iichung 


SGI 




SG2 




SO 




SX 


SLmmBoerMeawerts 


SI 


SternchenieilB 






TG1 




TG2 


TestwertfOrWaibung 


Tl ... T4 


3.ib e 






W 


Hltfewe-W 


y 4 


Hilfcvar-ablB 


VA 




VG20 


********** 


ii 




vxoo 


Vertrauensbereicli 1 Mttalwert 


vxou 












XI 


MeSwerl-lnpirtvariahle 


XG 


Miaetwert 








Steuerzeichen fiir variationsknetf.erreoliriufig 




Steusrzcicfien t. Sortier-Erfordemis 








rung Im Diagramm 


Variablenliste 
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Spiel. Es handel: slcn hic-bei :.i.-n oie Piogrammpassagen mit 
den etwas omirbsen. duro-i viele D(:.v'i:na,e!eilen erkennbaren 
Zahlen. Diese Zahien wurden : n voller vorliegender Lange 
jbemommen, ijmdicRec^ciMjonajigvjitdesZXSI komplett 
,"ii.:>;-asohopfcn. Dor Tec-,: a.j; N o ' r.a I vc- - :ol I i.ng wird nach der 
tKumulantenmetl'odS' i.titsc! i:«a-: i ii- ■'Ai..=™erten von MeH- 
reihen*,DQQ7 : Dci^schcGosol!sr;MatttjrO-;jalitateV)durch- 
gefiihrt. Fiir alle anderen Be-ecni -li ig-a: i '..vu-a'en die in der Sta- 
Tistik aiigK-moin liblicho.n Rormeln verwendet. leilweise mulite 
darauf geachtet wer^e'i. daR unlei kwirnin Umstanden eine 
niclit eila.ibte D -./isior. durch Ni.ll ^i.ftrotorr dart. So muRte vor 

Berechnung u< . ■' ■■■■■■■ i ■ i nten geprutt werden, ob 

der Mittelwert i.noleir.h Niiii is*. H:ertu. r wLrde der Reohnung 
sine in Form ernes r'/odukles tus der Operanden durchge- 
fOhrte Prufung vo:Y:'?sohaitet. die ,or Ai.ilire'en eines Uberlauf- 
fehlers bereits erkennt, ob der Variationskoeffizient eventuell 
an die Grenze der Rechnerkaoaztal ( 1 !}'\: eloiil. In diesem Fall 
wird der Koeftiziei:! iiicb; inehr :;croohnet, als Ergebnis wird 
nur ein Hinweis ausgegeben. 

Die sehr zeitraubende Sortierroutine wird benol.igt, urn den 
Zentralwert zu ormitic-ln. Sie wird abei nicht nur hierfiir benci- 
tigt, sondern audi zur Aufce'd'.ung der Daten fiir die Haufiq- 
keitstabelle Nebenbei 'alien bei do.-.- Sertierung auch die 
Grolit- und Kleinsl werle an. 

Nach eriolgter I inssbe dea r'ro gramme? und Beenden des 
Debuggings wii ;: m ; : »GO 1 -i 2 '0«. auf Kassette gespeicbert. 
Damit Wird der .iiilomali-iC'ic Start aktiviert 

Betriebserfahrungen 

GewiR gibl es heule schor soiir pre-swerte Taschenrech- 
ner, die das Ermitteln von Mittelwert, Stan dardabweic king, 
Variant, Kloinst- und GroGtwsi i at.: Knopfdruck im Handum- 
drehen ermoglichen. Aber die anderen Werle wie Schiefe, 
Wolbung, Vertra'.ier.sbeteiche sin; - : ■liehi se cinfach zu ermit- 
teln. Insofern ist die leidei ev-.vas langoProgrammlaufzeitohne 
weileres /u reehlfeiligen. donn .nier werden auch diese Werle 
geliefert. 

Andererseits ^am es daraul an. zu sehen, inwleweit es der 
kleine ZX81 mit GroRreo'-iriem autnehmen kann. Hinsichtlich 
derLaufzeit schneicet er hier sehr sclilecnt ab. Aber, und das 
ist eigenilich elw-as i.ibenaschend, die Rechengenaugkeit ist 
irotz der ge ring cro. n ■■c-chneii.'-iienien Slelleezatil sehr gut. Ei- 
ne groBere Anzahl von Auswe r :ungor-. die auf dem Grolirech- 
ner bei Sctiulungen. Vorijhiurieen u.nd Tests erstellt wurden, 
sindauf demZX81 mit derri liier vereeslellleii Programm wie- 
derholtworden Lin Vergleich der Frgebn-ise zeigte pra-iiio.-i 
identisctie Ergebrisije. I ediglich .":.e lot;::c-n Z'.vei bis drei Dezi- 
malstellen zeigen -Ji-lni'-re Ahv/oirh j.-ger. aeaonders bei der 
Errechnung von Schiefe, Wolbung und Vertrauensbereichen. 

Dies ist durcli'ii' 1 iei ■. i hi ■ . :«■ ifendurchlaufe mit 

sich langsan: ai,laddierv.nden Riindangsfcnlern im Flahmen 
derZX-Rechanger.ai.ickr.i--cgrii'idct. f.a: aber auf die prakti- 
sclie Venveii'i, ■■ km: r: ■: .■,■ :■■!! .as h in n EinflulB. 

Abschliefiend ;-,oii .-nehi ..jnorwahnt bleiben, dafi das hier vor- 
s, zonachst ■iicbr aus Neug'ei enlatandene Piogiiirnm 
i feates Anwendungsgebiet gefunden hat, 
wenn es zum Beispiel da'ii'n gehl. ob der Benzinverbraach 
des Autos sicli signifiK:--iiit aiso s:atistiscri nicht mehr zulallig, 
veianderl hat. Das glcohe gilt natlirli^haueh fur Teielongebub- 
ren und ahnliche in groRerer Anzahl vorliegende Daten. Das 
v.'fiitai;s mteresaanteats Ainveidi,ng;;i;;.:l.'' ! e; sin;") natiirllcb 
MeRreihen, die aufgrund von Programm-Laufzeitmessungen 
Oder bei der Optimierung von eleklronisehcn Schaltungen 
entstefien. Hierbe; siny 'SigenlJioh ko tic Gronzen in der An- 
wendbarkeit gesetzt. Desh alb soil das vo-liegende Programm 
auch in der nachstsri ZLkL.nll ojieh ■.veiieie statistische Pro- 
gramme erganzt werden. (Bernd W. Fiiedrictij 



Basic-Listing 


"Tecstat" 


IS 


REM 


*********?»**♦»****»»# 


REM 


* TECSTRT I * 


30 


REM 


■: ■ .-; ";ns:HS 


4.0 


REM 


* HUSUERTUNS * 


SB 




■.-■.'•■li,A~l: 


60 


■--■■. 


* <C> B.U.FRIEDRICH * 


70 


REM 


* 6500 MRINZ 1 3/84 * 


80 






90 


FAST 


1(30 

lie 


REM 
LET 


ftOnNOT PI 


taa 


LET 


fll-SQM PI 


130 


LET 


Ba»«i*fil 


i*a 


LET 


H3"fiS*fll 


150 


LET 


R4*fia+fifi 


150 


LET 


«B-fi3+fla 


170 


LET 


R6«fl3 + f.3 




LET 


p 1 7«R4. + R3 


190 


LET 


R8>R4+R4 


..00 


LET 


A9-fl5+R4 


a lo 


LET 


C50 = R5 + HS 


£20 


LET 


B1-B0+R1 


330 


LET 


B3-B0 4R3 


34-0 


LET 


B3.BIB +H3 


230 


LET 


B4=0a+«4 


260 


LET 


SSsBO+BS 


370 


LET 


B6-B0+R6 


£80 


LET 


B7-B0+R7 


200 


LET 


B6>=S0 + R6 


300 


LET 


33.B0+R9 


310 


LIL- 


CO-B0+B0 


338 


LET 


Cl.Cffl+Rl 


330 


LET 


ca«ca+fiS 


34.0 


LET 


C3-C0+R3 


350 


LET 


C4.C0+R4 


360 


LET 


CB"C0+h5 


370 


LET 


C6-C0+R5 


380 


LET 


C7«C0*R7 


390 


LET 


CS.C0-.RS 


4.00 


LET 


C9=C0+flfl 


4.10 


LET 


DO-CO+B0 


4.30 


LET 


D1-D0+R1 


430 


LET 


&a-D8+HB 


44.0 


LET 


Ml-URL "108" 


450 


LET 


HT-UflL "1080" 


450 


LET 


SaM) 


470 


LET 


P>R0 


480 


LET 


VI .R0 


430 


LET 


Y3.R0 


600 


DIM 


X(HT*R1) 


S10 


LET 


X (MT+R1) .<JflL "-1E3B" 


530 


LET 


U»R0 


533 


LET 


XMifiO 


5412 


LET 


RI-^'NUR MAX. 1800 UERTE 


MOEGLICH" 


550 


DIM 


MtDS) 


560 


DIM 


LilDS) 


S70 


DIM 


aiffas 


580 


FOR 


I-Rl TO D3 


588 


.:■■■ 


L»ll)-"-" 


500 


LET 


Sitll -"*" 


510 


NEXT I 


530 


SOTO 1330 


640 


REM 

■ . ■ 


SB RsK 


550 


LET 


TU.UHL "PEEK 16396+256* 


PEEK 


16397+750" 


SfiO 


POKI 


I TU.VRL ,, 143" 


670 


SLOU 


680 


if : 


CNKEY|<1"" THEN SOTu d80 
ENKEVl*"" THEN GOTO 698 


590 


if : 


700 


FRST 


710 


LET 


K.INKEVi 


730 


RETURN 


730 


REM 


5R PRINT LINE 


740 


IF 1 


AOX P TMEN RETURN 


750 


LPRINT 


760 


LPRINT L* 


776 


LPRINT 


780 


LPRINT 


790 


ret; 


JRN 


800 


REM 


SR N/L 


810 


PRINT RT Cl.RB; "BITTE ,,, 'N/'L 
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828 INPUT 1$ 

830 IF Ho"" THEN GOTO 820 

84« CLS 

SS8 RETURN 

968 REM 5R LISTENTITEL 

870 CL5 

8B8 IF NOT P THEN RETURN 

898 LPRINT "RUFLISTUNG DER EING 
PBEUERTE" 

908 LPRINT L(i TO C7) 

910 LPRINT 

920 RETURN 

938 REM SR INPUT 

948 SLOU 

958 INPUT XI 

960 FR5T 

978 IF I«R1 THEN LET Y*XI 

988 IF I*H1 THEN RETURN 

998 IF I>R1 AND XI>"Y THEN GOTO 

1818" 

1888 LET Y2-R1 

1818 LET Y»XI 

1038 RETURN 

1038 REM SR U -UERTE 

1040 LET UaA0 

1060 FOR I=fll TO N 

1868 LET XM.X (I) -X9 

1070 IF d=fla THEN LET U=U+XM*XM 

1880 IF J-R3 THEN LET UnU+XM*XM* 



XM 

1090 IF . 



= R4 THEN LET U*l 



1118 RETURN 

1128 REM 5R SKRLR 

1138 PRINT TRB S3. 'RELATIVE HREU 
FIGKEIT [O/0) r, iTflB R3,Ltifl4 TO C 



■ =R2 THEN LET fl«=' 



1158 IF S=UAL 



THEN LET R« = ' 



1208* RETURN _ 



<-J*il 



1220 REM . 

1238 CLS 

1248 PRINT TRB P9;S*iR9 TO 02) ,T 

'■"".;ThB C2; ■'*- .TAB A9;"* T 
' -",TRB fl9; "i'JTAB C2; - 



RB A9, ' 

ECSTRT ^ w , , nu no, t , 

*",TflB fl9,5i(RB TO C2) ; RT R7,h*, 

i-S. .""^E H-- =tjhTI5TISCHE AUSUERT 

UNG" . , ,TRB fl9;"U0N HESSREIHEN" , , 

,L*;RT C0,HiZi. ■■CS!JC-:.Fl.--PROTOK0LL 

:.7EUL!iM5CHT ? iJ/N) '■ 

1250 DIM 5*iRl) 

1250 G05UB 650 

1278 IF I*-"J" THEN GOTO 1380 

1280 IF lf»"N" THEN GOTO 1390 

L39V L-OTO 1268 

1388 PRINT RT C0 , R0; BtJ Bf, RT CI, 

R0; "BEZEICHNUNG DEft MESSREIHE.?" 

1318 3L0U 

1320 INPUT I| 

1330 FR5T 

1340 IF. LEN I»)D2 THEN LET I«=I» 



TO D2. 
1350 LET T1»INT ... 
1360 PRINT AT CI j flit; B«; RT B6,T 



H2) 



1398 PRINT RT C8 , R0, "LIEGEN DIE 
UERTE iMRX . 1000) IN GRUPPIERTER 

FORM UOR ? (U/N) " 
1488 G05UB 6S0 

1410 IF Hn"d" THEN GOTO 1750 
1428 IF H = "N" THEN GOTO 1450 
1438 GOTO 1400 

1440 REM UNGRUPPIEflTE LiERTE 
1458 CLS 

1460 PRINT "UIEUIELE UERTE 7" 
1478 SLOU 
1488 INPUT N 
1498 FRST 
1508 LET NnINT N 
1S10 PRINT RT C1,A0;B» 
1520 IF N>R1 RND N<=.HT THEN GOTO 

1568 
1530 IF N<R2 THEN GOTO 1478 
1540 IF N>HT THEN PRINT RT C1.R0 

;£« 

1558 GOTO 1470 

1560 C05US 370 

1870 PRINT "GESEN SIE " ; NJ " WERT 

E EIN: " 

1580 FOR InRl TO N 

i r :"ve l^t j;:-: : 3.rr<s i 

1688 LET T1=AB-LEN IS 

1610 PRINT RT C1.H0J "WERT " ; TAB 

Till," ■ ?" 

1620 GOSUB 948 

1638 LET XCI3 -XI 

1840 PRINT RT CljBl;" "JXdJ 

1650 SCROLL 

I860 IF P THEN LPRINT "UERT " ; Tfl 

B Tl; I; " = ";X(IJ 

1670 NEXT I 

1690 GOSUB 740 

1690 SCROLL 

1708 PRINT "EINGRBE BEENDET" 

1718 SCROLL 

1720 GOSUB 818 

1730 GOTO 2200 

1748 REM GRUPPIERTE UERTE 

1758 CLS 

1760 PRINT "UIEUIELE GRUPPEN ?" 

1770 PRINT RT Cl,fl8;B« 

1780 SLOU 

1790 INPUT G 

1800 FRST 

1618 LET GiINT S 

1828 IF G>A0 RND G < «HT THEN GOTO 

1868 

1830 IF G<A1 THEN GOTO 1770 

1940 IF G>HT THEN PRINT RT C1.R0 

i850 GOTO 1788 

1860 G05UB 870 

1870 PRINT "GEBEN SIE ";G;" GRUP 

PEN IN OER", ,, FORM UERT (X) - HREU 

FIGKEIT 1H) 'VEIN: " 

1888 LET NbR0 

1S90 FOR I-Rl TO G 

1900 LET IliSTRt I 

1910 LET T1.R6-LEN I* 

1928 PRINT RT CI , R8; "GR . " ; TRB Tl 

1938' GOSUB 948 
1940 PRINT RT i 

; XI; TRB C7; "H- 



iOU" 



RT 01,61 

. A. J., I MO U / 

1980 SLOU 

I960 INPUT H 

1970 FR3T 

1980 LET H-INT H 

1890 IF H>«fll THEN GOTO 2028 

2800 SCROLL 

2010 GOTO 1928 



RINT RT 01, T2i H 
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"OR.' 
j- - . X" " 

ts;h 

2070 FOR J-fll TO H 

aasa let n»n+ri 

2090 IF NoHT THEN GOTO 2138 

21B0 SCROLL 

ana print r-t ce.fia; "laaa uerte 
ueberschritten" , "flusuertunb nich 
t moeolich" 

2120 slou 

2130 PAUSE 230 

214a SOTO 4.178 

5153 LET X (N) «XI 

a iea next u 

217a NEXT I 

aisa goto isae 

2130 REM STRT.KENN0R0ES5EN 

aaaa rem xquer 

2218 LET SX«H0 

2228 FOR I«fil TO N 

223a LET SX-SX+XCI) 

aa 4-a next i 

2250 LET XQ=SX/N 

2268 REM ORRIflNZ 

aa?a let so»Ra 

22S8 FOR I«fil TO N 

2200 let 5o=sq+ tx id -xqj »ix(ii ~x 

0) 

23ee next i 

33ia LET S2-R1/ CN-fil) *50 

2320 REM STRIMDRRDRBUEICHUNG 

2338 LET SR=S0R S2 

2340 REM UflRlHTIONSKOEFPIZIENT 

2358 IF UAL "PES (XO*SH! <lE-38" 

THEN LET Ylifll 

2358 IF NOT Yl THEN LET Ufl* (SR/X 

0) *H1 

2378 REM UERTE 50RTIEREN 

2380 IF NOT Y2 THEN SOTO 2570 

2398 LET I" ■ 



2480 


LET M-INT (M. 


'R2) 


2410 


IF NOT M THEf 


J GOTO 3570 


-2c. :■:;;: 


LET J.R1 




::■;.: ,■ 


LET K.N-M 




244-8 


LET I»J 




2458 


LET L-I+H 




2460 



2470 


IF X il) <=X (LI 


THEN GOTO i 


LET H«X II) 




£460 


LET X(II «=X (LI 




2498 


LET XfU «H 




2500 


LET I=I-M 




2510 


IF Kfll THEN 


GOTO 2538 


2~;=:iZ 


GOTO 2458 




.': :■ . ..: 


LET JiJ+fll 




L':—o 


IF J>K THEN t 


JOTO 3400 


2550 


GOTO 2440 




.; ■■■ ■ ■';. 


REM 5PRNNUEITE 




LET RaURL "Xi 


:Ni -X(l) + .5E- 


2588 


REM MEDIAN 




■.:■; :■ 


LET I=INT IN. 


'RSJ 


y-'-.: ■: 


IF N/R8=I TH! 


:N GOTO 2630 


2618 


LET MD*X(I+fi: 




2680 


GOTO 8630 




;-.::.:■ 


LET MD«(X (I) - 


jX(I+fll) ) Vfl2 


2640 


REM SCHIEFE L 


J. WOELBUNG 


aeee 


LET J-RS 




2660 


GOSUB 1040 




2570 


LET U2«U 




2680 


LET J -A3 




2690 


GOSUB 1040 




:.:■ ■■■:: 


LET 03 »U 




■i ;■ :;. :,. 


LET J-R4 




2720 


GOSUB 1040 




2730 


LET UA»U 




274-0 


LET Q1-N*U3/ 


I 1 (N-fll) + EN-I 


J *Sfl*Sfi*SH) 




2750 


LET G2- ( i IN* 


(n+rij *U4J -r; 


N-fll! 


*U2*U2> ) /( IN- 


-ri) * iN -sat * 



R3) *Sa*52) 

8760 REM RUSGRBE 5TRT . KENNGR0ES5 

2770 PRINT TRB R3; "STfiTISTISCHE 
KENNOR0ESSEN",TRB R3;L«( TO C6) 

27B8 PRINT "RNZRHL MESSUERTE.: " 

2798 PRINT , j-MITTELUERT : 

";XQ 

2608 print "median ; 

;md 

2310 PRINT , , "URRIRNZ i 

"J 32 
2620 PRINT "STD.RBUEICHUNG. . . : " 

2330 IF NOT Yl THEN PRINT "URR.K 
OEFF. 10/01 . . : ";Ufi 

2848 IF Yl THEN PRINT "UflR.KOEFF 
. (0/0) . . : >"1E38" 

2860 print "schiefe : 

;gi 

aasa print "uoelbung 

;Q2 

a870 print , , "apHNNUErrE 

";S 

288B PRINT "KLEINSTER UERT . . . : 

;x (fil) 

2390 PRINT "GR0E5STER UERT . . . ; 
;X (N) 

2908 IF P THEN COPY 
2010 GOSUB 810 

2920 REM BERECHN.UERTRRUEN5BEREI 
CHE 

2930 REM T.CHI.F.PR-9B 0/0 2SEIT 
IS 

2948 LET FG-N-fll 

2950 IF FGofll THEN GOTO 3080 
2968 LET T*URL '■12.787" 
8970 LET CHIO-URL ".000882" 
8980 LET CHIUnURL "3.03" 
2930 GOTO 3148 

3080 IF FQOP2 THEN GOTO 3860 
3010 LET T-URL "1.382" 
3020 LET CHIO»URL "-0S88" 
3030 LET CHIU=WHL "7.38" 
3040 QOTO 3148 

3850 IF FGofl3 THEN GOTO 3100 
3068 LET TaUfiL "3.182" 
3878 LET CHIO-URL ".216" 
3880 LET CHIU.URL "9. 35" 
3898 SOTO 3148 

3108 LET T-URL "1.96*9.489536/(4 
»N) +270.9709835/ (9fl*N**3> 4-981.64 
61618/ 1 384. *N* #3) +160215.6332/ (92 
160*N**4) " 

3118 LET F2«R2/(R9»FG) 
3128 LET CHIO-UHL "FG* ( 1-F2-1 . 96 
*SDR F2) **3" 

3138 LET CHIU«USL "FG* ( 1-F2+1 . 96 
*SQR F2i **3" 

3140 REM UB F. MITTELUERT 
3180 LET I"T*3fl/S0R N 
3160 LET UXflU-XO-I 
3170 LET OXOO-XO+I 
3180 REM UB F. STO.RBUEICHUNG 
3198 LET USRU-SR»SOR (FG/CHIU) 
3280 LET tJSR0="SR*50R (F5/CHI0) 
3210 REM UB F. SCHIEFE 
3228 LET SQ1-SQR ( IR6*N* (N-fll) ) / 
( (N-R2) * (N + filJ *(N+R3> ) ) 
3238 LET UG1U-URL "01-1 . 96*SG1" 
324-8 LET U010 = URL "31 + 1 . 06*SG1" 
3260 REM kJB F. UOELBUNG 
3360 LET SGS = SQR C (C4*N# (N-Rl) ** 
qSl / t (N-R3) *(N-R8) * (N + R3) *(N+fl5) 

3270 LET U52U-URL "G2-1 . 96*SGa" 

32B0 LET UOaOaURL "G2+1 . 96*5G2" 

3298 REM RUSGRBE UERTR . BEREICHE 

3308 PRINT " ZUEISEITIGE UERTRRU 

Basic-Listing "Tra^tat" (Fortseizung) 
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Basic-Listing »Tecstat« (SchluB) 

ENSBEREICHE ■;L4,,"iMIT 5TRT.SIC 

HERHEIT PHi9S 0/0) " 

3310 PRINT ,,,, "'FLIER HITTELUERT: 

",TRB Bl; UXOU.TRB BE;"... ";VX0Q 

3330 PRINT AT R9 , R0; ''FUER STD . RB 

UEICHUNG; ■' ,TRB fli;VSRUjTRB B5; " . 

.. ";USR0 

3330 PRINT AT B2,R0;"FUER 5CHIEF 

E:".,TRB R1;UG1U;TRB B5 ; " . . . ";U 

Q10 

3340 PRINT RT B5,R0;"FUER UOELBU 

NQ:" , ,TRB Rl;UG2UjTRB B5; " . . . " j 

yoao 

3358 IF P THEN COPY 

3360 GQSUB 310 

3370 RE" PRUEFUNG RUF NU 

33B0 LET fl«n" NORMRLUERTEILUNG " 

3390 PRINT " PRUEFUNG RUF "iBfii. 

3400 IF N>«D0 THEN GOTO 3430 

34-10 PRINT , , . , "PRQBENGROESSE ZU 

KLEIN FLIER TEST", "RUF".; fit, 

3420 SOTO 3490 

3430 LET TGlxSl/5Gl 

3440 LET TG2-G2/5G2 

34S0 PRINT ,,,,'MIT 95 0/0 RUSSfi 
GEURHRSCHEIN- LICHKEIT KANN DI 
E RNNflHME EINER";Rt; 

3468 IP URL "RBS TGI. 1.96 AND RB 
S TG2<1.96" THEN PRINT "NICHT ": 

3470 PRINT "UERUQRFEN" 

3430 PRINT -'UERDEN. " 

3490 IF P THEN COPY 

3500 G05UB 610 

3510 IF NOT G OR G>B5 THEN GOTO 
4170 

3520 REM HREUFIGKEITSTRBELLE 

3330 DIM £ <G) 

3540 DIM F (G> 

3550 DIM U (HI 

3560 LET Z=R0 

3570 LET K-R0 

3530 LET U«R0 

3590 LET I-Rl 

3600 LET 0=R1 

3610 LET M.X <0> 

3620 LET UbY+BI 

3630 LET O=0+fll 

3640 IF XiOIOM THEN GOTO 367B 

3650 LET UnV+fll 

3660 GOTO 3630 

3670 LET U(X.]*URL "INT (iU/Nt.00 
005) #1E41 /HI" 

3630 IF U(I)>Z THEN LET Z=U(I) 

3890 LET E II) *V 

3700 LET F (I) -X(O-fll) 

3710 LET Isl+fll 

3720 LET Uafl0 

3730 LET K-K+fil 

3740 IF 0<«N THEN GOTO 361© 

3750 CL3 

3760 PRINT TAB Rfl; "HREUFIGKEITST 
RBELLE",TRB R6, LJ (R7 TO C6) ,THB 
C0;"REL. SUMMENGR. UERT"jTRB B4 
; "RBS. (0/0) 10/0) ";L( 

3770 LET SH=R0 

37S0 FOR I-fll TO K 

3790 LET SH"SH+U(I) 

3300 LET T1»H0 

38113 IF KB0 THEN LET Tlafll 

3S20 LET T2*B4 

3330 IF EdXHl THEN LET T2«B5 

3840 IF EID.B0 THEN LET TS=B6 

3350 LET T3*BS 

3860 IF UdXHl THEN LET T3»B9 

3S70 IF Ull) 1B0 THEN LET T3=C0 

38S0 LET T4*C6 

3890 IF I»G THEN LET 5H*H1 

3900 IF SH<H1 THEN LET T*»C7 

3910 IF 5H<B0 THEN LET T4«CS 

3920 PRINT TfiB T1;I;TRB RAiFtI); 



TAB TSiElI) ;TRB T3;l 



;TR6 T4; S 



3930 NEXT I 
3540 PRINT L* 
3950 IF P THEN COPY 
3960 GQ5UB 810 
3970 REH GRRFIK REL.HREUF. 
39S0 CL8 

3990 LET S-URL ".3" 
4000 IF Z>C5 THEN LET S=H1 
4010 IF ZiURL "SO' 1 THEN LET 5 = UR 
L "1.5" 

4020 IF Z>URL "75" THEN LET SxRS 
4030 GOSUB 1130 
4040 FOR I=fil TO K 
4050 LET T3»A3 

4060 IF D-B0 THEN LET T3=flS 
4070 PRINT RT R5+ I ,T3J I; TAB R6,C 
HR* URL "133-' 

4080 FOR U-Al TO INT £U(I)/S) 
.090 IF NOT Udj THEN GOTO 4110 



4100 PLOT 



3+J,D 



-1*2 



H5-H,R5,CHR« URL 
COPY 



4110 NEXT J 

4120 NEXT I 

4130 PRINT I 

133" 

4140 IF P Tl._.. 

4150 G05UB 810 

4160 REH AUSUERT.ENDE 

4170 CL5 

4130 PRINT RT °f c | ■ MMMMiM 

4190 IF P THEN COPY 

4200 PRINT RT CI , R0, "UEITERE RUS 

UERTUNG 7 (J/N) " 

4210 INPUT It 

4220 IF I«o"J" RND I«.i"N" THEN 

GOTO 4210 

4330 IF IS="U" THEN RUN 

4340 PRINT RT C1,R0;B* 

4258 5T0P 

4260 REM 5P.UE/AUT03TRRT 

4270 CLERR 

4380 SRUE "TEGSTRTH" 

4290 RUN 

31505 RESTORE 3030 

■fiGJ.0 FOR i =1 TO 13 

5C.S PEHD P« 

se-c FOR a=a . _ 

Uj- pS+a . b: NEXT 



:ERD. b: POKE' 
NEXT i 

129, 129, 129 . 



60 


126 


195 


195, 


56 


137 


153 


169, 


66 


153 


165 


137, 


66 


157 


165 


141, 


66 


137 


153 


159, 



3330 DRTR 

129,56,60 
8032 DhTR "b' 
, 195, 125,50 
8034 DhTh ■**' 
., 137,66.60 



3040 DRTR " 
,137,66,50 

S042 DRTR "' 



3050 DRTR ' 

3052 DRTR 

3054 OhTA 

3056 DRTR ' 

3 

3058 DRTR ' 



6052 DATA ■*■ 

8064 DATA " 

?e?'3 RETURN 

33'?0 -: = i-! ^.fiv'E-F-JU-lNE BRND 

9010 5AUE "MRDN" LIME 

yCi'd ,'EP.IFV "MRDN" 

9030 STOP 



.0,0 .0.0,0,0,0,1 

. 0, 0.0 . 0,0,0,0, 128 
, 12S ,0.0,0,0,0,0,0 

- ">, 0,0, S,0,0,0 

i 2- .24 ,24 .0,0, 1 
1,0,24,24,0,0, 12 

, 123,0,0,24,24,0,0, 
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TECSTRT I 



STflTISTISCHE RUSUERTUNi 
1>QN ME3SEEIHEN 



UELLENDURCHME35ER 



ZUEISEITIGE UERTRRUENSBEREICHE 


CMIT STRT.SICHERHEIT PR-95 0/OJ 


FUER MITTELUERT: 
13,416314 


13. 435486 


FUER STD.RBUEICHUNG: 
0.13SES313 ... 0. 13337772 


FUER SCHICP6: 
-B. 257738 


0. 17034573 


FUER UOELBUNG: 
-B. 51O2301S 


2. 34435369 



RUFLI3TUN0 


DER EINGRBEUER1 


E 


1 
































































a« 






























raft 












flfi 






















































Hi 
































UH 


IB 


X" 


13 


77 


M" 


1 





STRTISTI5CHE 


KENNGROESSEN 


RNZRHL ME55UERTE 


: 520 

: 13.4364 
: 13.43 

: .1313175391 
: 0. 11478411 
; 0.8549136 
: -.043721138 
: -.082938245 

: a. 7 
: 13.07 
: 13.77 




5TD.HBUEXCHUNG. . 
UHR.KOEFr . (O/O) . 




KLEIN5TER UEHT . . 
GROESSTER UERT . . 



PRUEFUNG HUP NORMRLUERTEILUNG 



MIT 95 0/0 RUSSRGEUfiHRSCHEIN- 

LICHKEIT KfiNi-; DT£. ~.!N3HME EINER 
NQRMflLUERTEILUNQ NICHT UERIJORFEN 







REl 


FIGKEITSTRBELLE 


SUMMEN 






REL. 


ttft. 


UERT 


R8S. 


(0/0) 




j 




1 




0.3 










































S.4 












6 






1;'. 




56 




a 


24. 3 




























































































13 






















15 


13 


77 


1 





a 


106 





RELRTIUE HREUFIGKEIT (0/0 
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List(iger) Schutz 

fur Programme 



it Ihrer Phantasie keine Grenze gesetzt! 



Benutzen ja, LISTen nein. So lautete 
die Aufgabenstellung fur dieses 
ZX81-Programm, das ihre eigenen Pro- 
iramme vor Mifrbrauch schiitzen soil. 



codewof;!' 



codlv;o=t-- 



Zunachsi -eben Sie das Hilfspr-jrai-pn 3 -in undstarten es 
mit RUN. Danac'i rV'i';ft::;;.-n S'f; -:sn-: ZahliSn yus der rechten Spal- 
ie (ab Adresse 16513 = 249) des Password- Programm s In 
den Computer eintippen. 

DieZeilen 10 bit. 60 -;or.n~-ri -Sic cisnn ,viod?;r losonen, Zeile 
1 >STOP= isl hinzuzufugen. 

Danach kdnnen S;e das Piograrrm abSAVEn. 

Beabsichtigten S.'S. das Password -Proyi=mm in Ihre ande- 
ren Programme oin/i;baiieiT ; In d'esem halls brauchen Sie es 
nur einmal abzutb::ea one ai.ii Kr-ss ,;:!■■; :u r,noichem. Diesmal 
jedocli zusammen mit dem Hilfsprogramm 2. 

Richten Sie sich da.'.u nach sen tL.nl yuiyetiihrlen Punkten: 

Nummer 1 rcsen/ier e:nen Sp-sidierpk-nz. der auch nach 
dem Laden elnes zweiten Programmes uiveranderl ist. Bei 
Nummer 2 gcbon boz : :!T.ir-!jsvvoiso lador- Sic das /ij scbijt- 
zende Programm ein. Mummer 3 ubertrag! -PASSWORD* in 
den geschiitzten Bereich. Nummer 5 schliofllich ijbcrtragl 
"PASSWORD" wiecfir. nacl;demSieN..imrris; 4ausgefubrtha- 
ben, in einen vorlv.vr yesc.lviflnnen ?\;n/ [wo es auch anlangs 
war). Die REM-Zc-ile 2 <cnrrrn 3;e nach dieser Prozedur lo- 
schen.Esempfiehltsich,POKE16419,1 undLISTI (ohneZei- 
lennummern) hinzuzufugen. Urn nun ^PASSWORD*, im Betrieb 
zu nehmen, slarten Sit- us oitle mil RUN.GOTO Oder RAND 
USR 16523. D.irai..:'ii'i knri'ien Sie Ihr Codewort eingeben. 

Sollten Sie sich vorsohreibon. kcrrlgicron Sie am besten mit 
i>Ruboui«. Ihre Codewort sollle keine Leerzeichen enthalten, 
sonst gilt es nur bis dort. Aueh Gra-iksynno ■;;. Funktion, mehr- 
stellige Zeichen und die Pfeiltasten mussen im allgemeinen 
entfallen. Ihr Codewo.'i -;yn die Lange von 32 Zeichen nicht 
uberschreiten. sonst wrci ill: Programm vorzeitig codierl. Vor- 
heristesnachNEWUNEqnliiy. '..■'■■A. in Sic..; lesrichtig cemacnt 
tiaben. wsr.-iioint riaraufnin >!":■ 0<- aaf den- Bildschirm. 

Oaabjetz' die Gsf=l' r-L-ns-s Ab-.-.jrzes- bi?i:oht. iviecvenluell 
durch RUN X. LIST Oder NEWLINE, SAVEn Sie das codierte 
Programm am besten ab. 

Ein MiGbrauch ist nun unmoglich!!! 

Urn es wieder gebraucben zu konnen, miissen Sie »RUN« 
eingeben und erneut ein Codewort iaas riohcige} benutzen. 

Danil liegt das Programm In ac-inc ■.jn-.;:ri'i iglichen Form vor. 
Weitn Sie das fslsche Codewort eingegeben haben, mussen 
Sie dieses und dasrichliye rwit=rher jnauriich getrennl) aul- 
fuhren. So ist es also moylicr. ein. P'ocramm nehrmais zu co- 
dieren, was zi.rsat/lich Sicherheit bedeutet. 

80 Sffife, 



M a so h i n e n code- Li sti ng 



LD BG340 
AI3D HL.BC 
EX DE.HL 
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9,16580 
1,2 
3, 4.5 


™- 


S23£? 


5061 65 




• 


:„ E ,..„„ 


:— 56 


166 
32.198 




16600 
6, 7, S 


PUSH DE 

LD(16671),A 


:DE Bill Ziel.HL 


50,61, 6 5 




Lm 


lis* 


jVeiUniipf jiib- + S 














4 


POPDE 


:DE aqs Srapel 


203 














:kom<> Em.^ribm'/ 




7 


LD HL.D£;INC 


;-™ k 


190 




JRZ.16523 




40,143 








205,35,15 




ld ec.ieno 








LD HL.DE 


:HLzeigtauf 


95,107 




INCHL 


:Codewnrt 






LD A,(BC) 








XOR (HL} 








LD (BC).fl 






8 


INCBC 


machsle Speicher- 




9.166S0 


LD A,C : 


Meteie Zolle? 


121^ 


2.16653 ■ 


CPE 

JR Z.16652 


2Sc:: + iC 


40B 


5.6 


s 


■ade^n" 


62,0 


7 


CP (HL) 


Mm vome. sonst 


190 


16660,1 


CPD 


: U Prgr Spejeher 


24.238 




JR NZ.16654 






&£u. 


CALL 3683 


■CLS 


205.43.15 


4,5 


LD B,0 


■PRINT 


6,0 






rROUTINE 










35 


^MD 


RET 


;* 


301 








33,12.64 














: D_FILE 


35 


bsr 


E'L„ 


. + iCodewort. 


0.15.0 


16700,1.2.3 


TEXT 2 Lange 


: + Freistelle 


1.0.0.0 



Hiltsprogramm 1 



:Hiir lina Prg. 33,124.6' 

:wird Plalz 1.202,0 

g^chiiffnn 205,1 58,[ 



30 POKE A.B 



Anwendung 

POKE 16389,127 NEW 



:.: i,'«NnuSH3: 



^oschou 

30 INPUT B 

40 POKE A.B 
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MC-Scroll 

MC-Scroll ist eine Routine, die in der REM-Zeile des ZX81 

Platz findet. Sie kann in jedes Basic-Prog ramm vor- oder nachher geschrie- 

ben werden. Vorausgesetzt ist, daB die PRINT-Anweisung mit 

»AT« festgeiegt ist. 



it :il E :M d ::■' 



Scroll- Programme gibt es zwar vieli 
kurz und simpel zu benutzen. 

Dris Programrri kann: Scroller! in alio vior Riehlungen auf ei- 
nen Schlag; Bilder verschieben Oder verschwinden lassen; 
Teste versetzen oder veidoppMl.T Rikier niu.l Gialik zeichnen 
lchhabezur()eno!isrr,nhijn;-iifj Aufrufadressen auf die Cursor- 
ifision i]Oli":(j; .irJ dio StiWi::'i:i;.i? 3L. loii 1 Naiu'lieh ksrn 
das Programm aucl" ■■.vorincprs n die FOv'ZoiiegoPOKEtwer- 

Nun zur Eingabe: Starten Sie mit RUN und geben Sie die de- 
zimalen Werte ein. POKEn Sie nun 16510,0 ein; dadurch wird 
die erste REM-Zeiio si if Z.-ilenriniiTrr gesfitzt und vor EDIT 
gescfiutzl. 

Programmpri.il jr ;;; Gober ii-r; i^icie'ides !3asic-Prog. r 5rnm 



Das Test- und f- ingnbopicg-.i-i-. 
werden und do^Sc.'Oil Hrou/awn 
nonimcri werden. 

























1984 


3 IF INKEY*- 1 ^ 1 












16541 

S IT INKEY«*"B' 
16557 

5 If INKEY»z"5' 


THEN 


RUN U5R 


THEN 


RUN U5R 












a RUN 










































RT < RNGEURNNT 



















(Josef Herrmann) 



Basic-Listing zur Demonstration des Programms 



16514 




193 


16515 
16517 




69 


15568 




34 


16563 




93 


16516 




42 




12 


16564 




43 


16565 




62 


16513 




54 


16519 




1 


15565 




34 


16557 




1 


16520 




181 


16521 




2 


15568 




31 


16559 







16522 




9 


16523 




34 


15578 




237 


16S71 






16521. 




130 


16525 




64 


15572 




245 


16573 




151 


1652S 






16527 




33 


16574 




18 


16575 




4-3 


16529 







16529 




9 


16576 




43 


18577 




87 


16530 




84 


16531 




93 


16B78 




27 


16579 




241 


16532 




42 


16533 




130 


16580 




61 


16581 




32 


18534 




54 


16535 






16588 




840 


16583 




201 


16536 




181 


16537 




2 


16584. 




42 


15565 




12 


16538 




237 


16539 




184 


16686 




64 


16S87 




35 


15540 




201 


16541 




42 


155B5 




34 


165B9 




93 


16542 




12 


16543 




64 


16590 




35 


16591 




62 


15S44 




93 


18545 




84 


16592 




24 


16593 




1 


1654B 




IB 


16547 




1 


16594. 




31 


16595 







15548 




34 


16549 







16596 




837 


16597 




176 


15550 




9 


16551 




1 


16538 




245 


16399 




151 


15558 




192 


165E3 




2 


15500 




18 


16601 




19 


16554 




237 


16555 




175 


16602 






16603 




19 


15556 




201 


1SS57 




42 


15604 




35 


16505 




24 1 


16SSS 




IS 


16559 






16505 






16607 




32 


16550 




4 3 


18561 




43 


15608 


" 


240 


16609 




201 



Dezimal-Li sting mit Adressen 
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24zeilige 
Display-Kopie 
auf dem 
Drucker 

Laut Sinclair-Handbuch sind die bei- 
den unteren Zeiien des Bildschirmes 
fur Input und Fehlermeldungen reser- 
viert und lassen sich weder mit PRINT 
noch mit PLOT ansprechen. DaB dies 
nur bedingt zutrifft, durfte den mei- 
sten ZX81-Freaks schon bekannt sein. 



ssssssiss, 


2EILE 


a 






ZEILE 








2EILE 








ZEILE 


* 






7EI1.E: 


5 






ZEILE 








ZEILE 


7 






7-f :r!_e 








ZEILE 








IETLE 


10 








il 






ZEILE 


12 






ZEILE 








ZEILE 


14 






ZEILE 


15 






ZEILE 


16 






ZEILE 








ZEILE 


IS 






ZEILE 








ZEILE 


£0 






ZEILE 


21 






ZEILE 








ZEILE 






********** 


ZEILE 


24 


********** 



Ausdruckversuch aller 24 Zeiien 

MifHilfederSystemvariablenD-FILE (PEEK 16936 + 256* 
PEEK 16397) InR: ;vicl die Lace dei Bldi-peicbers fesfstellen 
und auch in die unveren beiet-n /Vlen e:n oder mehrere Zei- 
clien einPOKEn. Aulierdem besleht die Mbglichkeit. durch 
temporares Verandern der 8 vet en va r a hi on DF-SZ (POKE 
16418,0) die Ausfuhung von Belehlen wie PRINT AT 23,0; 
"TEXT' zuzutasson und darrrt ein P4;;eii ges Display zu errei- 
cben. Allerdings rnufj h'C-rbei vorcen niichsien Inputbefehl die 



Systemvar'ablc mil ihrcn nlien Wed ,ui ..ickceselzt werden 
(POKE 16418,2), da sons) eas System n.sammenbricht. 

Bei der Dokun-entaiicn cince; P'oeiammcs stellte sich das 
Problem, ein soichomviRori ■:■ r ;-.!■:■ I i fo ;"; 2'l;eiiices Display ai.f 
dem Drucker auszugeben. Zunachst widersetzte sich der 
Bechner alien diesoezbgliclen Bemununcen. Es wurderi 
selbst bei im Pro:; .-a mm an er'sprcchendcr Slelle eingesel; 

tenCOPY-Befchlund bei ■.■■erandcrtcr Sysiemvahable DF SZ 

immer nur die ublichen 22 Zelon a if den Urucker ausgege- 

Das Problem wurde sehlie.'Stc.n mil der in Listing gezeigten 
kleinen Subroutine gelost Im Programm an der richtigen Stelle 
aufgerufen, stelii. s : e den c e ;.a mien Bildspeicber mit alien 24 
Zeiien in einen alphanumensc-ier Siring ;PS). der sich dann 
einfach auf dem Drucker ai isgoecn Slit. Vor der Riickkehraus 
der Subroutine wird der filririo ?'■.;' Ehsoan.n;; von Spelc.ner- 
platz wieder auf e no [■■.■V.imnll.Vic/j dimensioniert. 

D'e kleine Subroutine afit sich r-curiieh cicht nur temporar 
fiir Dokumenial.iona^ecke. sondem auch dauerhaft in Pro- 
grammer! einbauer\ wunn -.; ■::-. gewlmcclu iit. Die Routine be- 
notigt selbst m FAST- Modus e : n:;;e Seku.nden, bis ausge- 
d.aickt -.vird. Sichodioh ioBo ;: en auch eine klene aquivalenie 
USR-Routine schreibec aber nier besiehl immer das Pro- 
blem, dali dann er:--.w«di-ji- Vcrande'ungc'i des RAMTOP Oder 
das EinPOKEn in eire PFM J'ei.s eiforderl.e.n wird, so dali der 
Gewinn an Gesehwiiid ckeii v.\oh; noisi durch den Aufwnnd 
zunichte gemacht wrrd (Bernd W Friedrich) 



10 


REN ERSTELLUNS EIIJES 


20 


f.LM .-i-I.L.LLS TE5T£ISPLSY5 




1 r-n s ! = -,.^ itititH" 


4-0 


PORE :Lt5413,S 


so 


PRINT siiTSE ■;-■'■ : ;"T : ST 33,0: 






FOR 1=0 TO 23 




PRINT P.T I,B;"i-;TfiE 12; "ZE 






30 






REM 


13 


RF.il ULiS'.-PifiE riuF r.RuCKER 


110 


EL"iU5 It-i 1 


12 CI 


POKE i.51 13,3 








REM 




Rfei-i SUBHOti" IHE r:i;UCK24 




FAST 




Din p${763> 




LET PP=0 


190 


LET TU=PEEK 1339S + 25SS-PEEK 


1S397 


200 






IF X>33=TMT iX.--3.-. j THEN GOT 






LET PP=pp+i 


2 3 i? 


LET P? IPP) =CHfiJ PEEK lX+TUI 


2 4-0 


NEXT X 




LPSIIJT P£ 


i'SS 


dim p $ r i .i 


270 


RETURN 



3 Tips fiir den ZX81 



and: folgGrdc F-.OM-Roir ne benutzen; 

im laden mit der Fob) erme! dung C/0. Danach kanr. 



Slail ein P:ocrs~iiT. m~ I ,OAL'"" ; , .aderi, kann man 
FAST/RAND USR 836 

Diese Routine atoppt das i J j:oaramm nacb erfolgreichi 
man das Progrdiiirn f^ctjlernles lislon und starten. 
Der Befehl POKE 16510,0 andert die ersle Zeilennummer eines Programms in 0. Di< 
noch gelistet werden, aber man kann Sie nicM mehr editieren. 
Mit dem Befehl POKE Le^Ifi.C'Lvrh jilt rngnstatt 22 nun 24 ZeichenauE dem BMschitm, Es 
fehl PRINT AT 23,31 mogEch. 
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Rund um den 



Die Idee zu diesem Programm ent- 
sprang einer Diskussion, in welchem 
der kommenden Jahre wohl die Weih- 
nachtsfeiertage und das Jahresende 
wieder so arbeitgeberfreundlich lie- 
gen wurden wie 1983. 



Das Ergebnis dor SI jtiier- aiierer und -iei_,erer Lexika sowie 
anderer Literatur scr-ilua sich in dorr hiei vorgesteliten Pro- 
gramm »Rund um den Kalendon niooa; D'e folgende Anwen- 
dungsbeschreib.ir g soil ..-.ulzo.gon. wcss da;; Programm Icistcn 

Nach dem Laden von Kassehe alartei das Programm auto- 
matisch und meldo: s :-i ai..! dem LSildschirm. Hierzu ein kleiner 
Hinweis: Essollte ko-nc Pi-jriiK ■ii,r-.orr:i-n--n. wenn der Ladevor- 
gang beendet isc, ciei Bildsrhrrr a he .■nnachst noch dunkel 
bleibt. Das Programm durchlaufl eine-n Incalisierungsteil im 
FAST-Modus; do.:; dauert ehva zwei Sekunden. 
Datumseingabe 

Der Rechnor mochlo nun das akyjelle Datum wissen. Die 
Eingabe wird gcspeiaiiert 1.111:- spaler i>n wekeren Verlauf des 
Prpgrnmns by B-aa'arl winder' vorwendet. 

Das Datum is! piin.dpieliir der Ano'cn-ang »TT.MM.JJJJ*ein- 
zugeben. Die Ehgapp ■«:rd -;L;I diese Syntax gepruft, Abwei- 
Chungenfuhrenzuohcr Fehlern^kiung uuc car Autfordcrung 
zur Korrektur. Anfiordorn p'Ol'l das Piogramm. obdaseingege- 
bene Datum iibertiaupt moglich sr: tier 32 01.1984 wird ge- 
nauso zuriickgewieson tvio dor ;>9.{J? IS80 ikein Schaltjahrl). 
Da das Programm ■ Jr den grogoriinis^hor, Kalenderkonzipiert 
ist, werdenauoh nur Da:on ah .don- 1 5.1 0.1 5ft? das ist der Zeit- 
punki der gregorianische'i Kalsadeiform. a-;zeptlerl. Die Pru- 
lung findetauch hoi ailon weiiKien n Programm vorkommen- 
den Datumseingaben sia:t Soil cas P'oyiai'rnausirgendwel- 
chen GriJriden bercirs hier abgobroohtvi werden, gibt man 
statt des Datums eh .X.en uagoroh wird das Programm ord- 
nungsgemaB mit once Eiidomo;;::ing vorlassen Bei den spa- 
ter im Programm anstehenden Daii.. m so: a gaben fuhrl diese 
Engabe nomiaierwoiso /ink;;: ins Auswahlmenij. 

Das ricbilg ehgege-benc Datum quitliert dei Recliner durch 
A11sgabea1.il dem Display, o.-ganzt d.jrck don bereils toiti Pro- 
gramm selbsttatig ermittelten Wochentag Nach Befallen der 
N/L-Taste gelangt man nun ins Auswahlmenu. Hier kann aus 
don a.ngebolener Moc lick !■.;■': an erne g ■■.■■.■■ (: 1 1 so a I e Anwen- 
dung durch B<-:l;liig;-:ri der emsp'acherdcr: Tasle ausgewahit 
werden. Dioeiivolren Meg. an-eiier; sind : :-i folgcnder: delail- 
liori beschrieben. 
Wochenlag 

Wie auf dem neu oisphienenen Schi.'mb'ld m:tg«teitt, kann 
fur ein uorgegebenes Datum der VVochentaoermittelt werden. 
Wird ein Datum c-ingogeboii. orschenl uscri kurzor Denkpau- 



sedasDatum unci der ii,;:oli6:igi-? Wbchen:agauf demSchirm. 
B01 Eingabe oines -X« waro das Programm ins Menu zuriick- 
gekehrt. Bei blcfter Belatigung dor h I Taste ohne weitere Ein- 
gabe nimmt der Reohncr ::as akluslle Datum an. 

Naahdem sich ao? l-ioolner mi: der Antwor! auf die Eingabe 
gemeldet hat, kann aonaR don- 1 mien aut o.em Schirm sichrba- 
ren Submenu ausgewahlt werden, oh aul einem angeschlos- 
soncn Drnokor eine Hardcoay do? Sorirmbn-jes erzeugt wer- 
den soil, ob ins Mori., .-uruvl-ackeli': A'oi'dor: soil odei ob dio 
gleiche Abfrago fiir oino andere Dati.msarigahe dutchgefuhrt 
werden soil. 

Es besteht also a ■■; Wogln;l-k-?i;. loaizustolicn. auf welchen 
Wochentag der nachston Gohurisiag fiilit, odcr ob der 
1.1.2000 ein Sarnstag ist. 
Abstand 

Hier laBt sich dor Abs-.lar-a zwisohan zivoi ieingegebenen) 
Daten in Tagen ermrtteln. Dp- Comp uler anltvcrtot mit dor Mel- 
dung, wievieleTageztvisohcn ::-:;'i Psiden Daton liegen, wobei 
er es mit der Grar^mati.-; gon.-:u mmnr bei nur einem Tag Ab- 
stand schreibt er statt »Tage« nur das Wort "Tags- 
Mil dieser Abfrago ksi'i;-, aei-!jielavve : sofos^;ostellt werden, 
wie alt man ist, oder wieviele Tage es noch bis zur nachsten 
Woihri^nlsbescf-erung sind. 
Tagesnummer 

DieserPrograrnni'.e It-irniiTerrdio Niimm^reineseingegebe- 
nen Tages im Kalenderjahr. Der 15.11.19S4 ::v bsispiels'.veis'r: 
der 320. TagimJahr Aucniiiei wird a-.i- dio Grammatik geach- 
tet; bei gegenlibor doiv a^Liellen D.aaim z.jriioktegenden Da- 
ten wird in der Ausgabe das Wort sisl< durch swar* ersetzt. 
Beslimmter Wochentag 

Mil Eingabe »Sarnstage una >2.£ .12.1983? wird spe;iliziert. 
dat! man wissen mooiilo, ;n welchem der kommenden Jahre 
der 24.12. ein Sarnstag isl. Fu. r die Ltisung dieser Aufgabe be- 
ncitigt der Rechner einigo Zoil. L-s veigehen etwa oineinhalb 
Minuten. dannerschonl ai.-dornR ; ldsch ureineListevon Da- 
ten, die autgrund der Abfrago au;,gosuclil wurden. Die Listo 
ist auf 20 Zeilen begrenzi. Scratte sich diosingangsgeschil- 
abite Diskussion ;-:::chl beenden lassen. 
Feierlage 

FLir ein vorgegooonos jarir wj.iden die Fo.ortago crmiltelt. 
Bei denfeststohonrirn =oies-:ge:i slellt das koin Problem dar, 
da hierjeweils 1 1 i_i - der WooliOiilag onuillell '.verden muB. Pro- 
blematischer ist es mit den beweglichen Feiertagen. Als 
SchlOssel wird das Os:e,-aa;jm horoolmol. Zwischen diesem 
und den meisten anderen bevvaciiic hen -010 ■>:!;«■ 1 beslehen 
zalilenmafligo Zik-.a'nmcnhange. cie ia;;:ioor;sch erfaBt wer- 
den kdnnen und schiioljlich .;ur Fui'il'jung der Lihdgor, Feierla- 
ge dien en- 
Da die Feiertagc irohi Pundeseinhei-iich :jind, sondern von 
Land zu Land vaoiorrui. wLi.'de in 1 Oiig rialprogramm alles aut- 
genommen, was in Rhalniand p-a;;- and in den angrenzenden 
BundeslSnderfi als reiertag z;ihi;. So karri audi der Rosen- 
mon tag ins Spiel, der ja hier ir .yainzzudon nochsten Feierta- 
gen zahlt. Nicht ai.rgonomiiien vvLiide Maria Himmelfahrt (nur 
in Bayern sin gese;; ic! 1^- I -eiertagi. Bei Bedarf kann das Pro- 
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gramm mil gonngfi:oi1gen Ande~u.-igen aoi andere ortliche Ver- 
hallnisse urngeschrieben werden. Innerhalb der Logik wird 
auch die Tatsache berucKs ahtig:. dafi es den 17.6. und den 
1.5. zu PapstGregorsZeiter; noc'i nbhla.s Feiertage gab. Die 
Feiertage werden elier'n,'!:; ;-;!: : i I iste suf dem Bildachirm aus- 
gegeben. Dadtegrundlegende BerechnungdesOsterdatums 
auf einer Fomielmit Hilfstabello-aao.Drl, kon-icn Feiertage nur 
im Zeitraum 1583 bis 2399 berech net werden. 
Kg lender-Display 

Diese Auswahl laiil selod ei.ner weiieren Scbirm mit einerri 
Submenu err.cheinen. Man r-i;i3 sich entacheiden, ob nur ein 
einzelner Monat odor ai aar'.-ft;: ..labr a.nge.^eJgl werden soil. 
DerUnterschiedbestckdarin, daB boi aor Auswahl iMonafr 
nacfi dem Display deo , J .aler aw:, n : de r Taste rV« ins Menu 
zuiic-LgeKehrl wird, ■.•.■uhren::: bei di.v Ai'swabl »Jahr« durch 
den ganzen Jahreskalendei :; = ::;■! ittert wird, bevor der Ruck- 
sprung ins Menu erlolgt. 

Dabeider Berechiiuny dei K.-ituueiblaUei keine Feiertage 
iiTi Spiel sind : kann ;ocio: rv':uri-i! n don .lahron '■■■■b?, Pis -'929 
als Display ersaheinen. So^bsthir das Jahr 1b82 1st uber den 
Monalsabrut -o : u Diaoviy "ur die letzten Monatc des Jahros 
mogliCh, der OKtobe' g.'oanei.ni allerdings nur teilweise Der 
Grund hierfur isf. daB boi aoi Kolenderrefe>rm einige Wochen- 
iaoo Libc-fspi-i.-nfjcn wurden. 
Kalender-Druek 

1st ein Drucker vorhanden. kann mit dieser Auswahl ein voll- 
standigerKalcndor liir ■.;'ibo:!Kbii;!0:-:J;ibr;::.vi'ichen 1583 und 
2399 ausgedruckt werden. Da am Fade des Kalenders eine 
Liste der Feiertage ao^oegcber wi.-d. .si h.er die Auswahl el- 
was eingeschranki. Ailerd ncs di.irfte der vorhandene Spiel- 
raum normalerweise alien veieuiilogen Anforderungen genii- 
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15 'er Feiertage 



Am Antang dea Kalondea -.■■.■lid die .iairoszaii in Groosoh'i'r 
ausgedruckt. Du.'ch F'nli.igtn oiniger iemporarer PRINT-Be- 
fehle kann oberriai. 1 ; dei .Jyii^sza":! nock, eh sinniger Spruch 
oder eine Widmuruj a.isgodiucki ■.■vordoi ;. Damil eignet sich 
der Printout recht r;i,i ais <!rin;" Aatr'arkiorikK.' -iir RoKannie 
und Verwandte. Der Kalender hat eirea :echt outer- Ankiang 
gefunden. Eshatsicl ooz- :i >. -v I io; a. sonstsobela'chel- 
te Metall papier do:; /:/, l-iinioosdurehaas auchytiaitiveSeUeii 
hat. Und Tanto Otlilio hat s:oo bsseodeia drier den far sie be- 

sliinmten Kaler de< nit ihrei i i bi .spi i. n gefreut. 

Proglamm beenden 

Diese Au:-',v.-;::i isi ■-<-- el' zidle Weg, aus dem Programm 
auszusteigen. 

Kalender-Algorithmen 

Giegorianische Kalenderreform 

Am 15.10. 1582 ■■/■.■■.irde dei gregc-iansche Kalender einge- 
fOhrt und loste den bis dahh i.i:;iiohe-i ;uiiar:ischen Kalender 
ab. Wahrona or in den: ksioolisof or I ar.dor:; '.n's.-r Goliigker 

erlangte, wurde e-' a a-idon ■: i . a ■ iiwiji era i imun- 

de:ie spa'ef eingetiihrt. 
Schaltjahre 

Ohne Rest dnr;.:h vie; :eilboro Jahre and Soiiaitjatire Aua- 
nahme von diesor' Re;.;elijriy Von dc:;"i ...ahrrionriertjahren sind 
r.r.r diojoniger Soaaliiaaro. (tie oi,o-i ohoo Rooi r:.i\:cii viorhun- 
dert terlbar sind. 
Osteriest 

!Jas Osterdalum laai sick cerecru'en Cs stellt, wie bereits 
orwahat. doo Scan "u-sol /a dor: rnoiolon aridoren beweglichen 
Feierlagen dar. Berechnuno: Man dividic-:" dio oahroszahl (j) 
durchvier, wobo c.hv. oorP tan > i- ■ ■ :■ I ■": i ir ■ I ■'■ i ji iff or 
halt so die Zar.l q j 4 r nun dividiert man 
j ■■' 19. bleibt Real a 
(M-11a) .'30, bleibt Rest b 
(j+q+b-D] / 7, bleibt Rest C 

Dann ist der (28 + b-c)te, fur Zahlen uber 31 der (28 + b- 
o 81)leMarz tie/'erut -ganviae Apii: dor Oai.eraunntag. D und 

M sind der folgera ■■ i ceile l. entnehmen: 



Tabelle zur Errechnung des Osterfestes 
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n Lioinorsi.ag E: iiegt 6 



Rosenmonlag 

Der Rosenrn^ritriy li.vnl ?-:-x-\ Tase voi' Aschernittwoch Lin 
damit 48 Tage vor dem Ostersonntag. 
Chr. Himmelfahrt 

Dieser Feiertag, irimcr ein Donnerstag. liegt 39 Tage nac 
dem uslcrsonntag. 
Pfingslen 

Der Ptingssonriififj isl 4ii "Inge naeh ue-m O.ste-t.sonntag. 
Fronleichnam 

Fronleichnam fallt immer auf ■ 
Tage nach dem Osiersonntag. 
Bittitag 

Dieser Feiertaa hat keTien s-kernbarw: i /uaammenhang mlt 
Ostern. Er fall I imnier auf oinen Mittwocb, 11 Tage vor dem er- 
sleri Advent Darin; K.rin eir •■>.-:■ Vor din dung zum Weihnachtsf est 
und damit zum Jahresons.e hs-:ssstelll werden. 

Der Bufttag liegt x-Taoe vor dem Jahresende. 



Tag der deutschen Einheit 

Gocionktag zur Erinnerung an den Volhsaufstand in Ost- 
Berlin und der DDR am 17.6.1953 Rjr die Programm log ik ist 
wichtig. daB voj 1954 der 17 6 kein Feiertag war. 
Maifeiertag 

Wei'leierlag do- Arbelierschaft air i Mai. Sei: Beschluf; dor 
2. Internationale mi .. la hi-; 18R9. gesctzlicher Feiertag in viefen 
Landorn. A.jeh her is; "fir die Proorairnisoik wichtig, daB vor 
1889 der 1 Mai kein Feiertag war. 

Progra mm beschreibu ng 

Das Programs glisdort sich in drei H;.uptabSChnilte: Iniliaii- 

sierung, Subroutlnen unci Mainline. 

Im Initialisierungsleil werden y.i maehs! die haufigsten Zah- 
lenwerteziiVaiia:i:'-nzu;-;uordne:. Diesbi rigteinenichtunbe- 
irncntliche Ein;.p"ir..ir:.i ai '.ipeidis-iplat;. !!.= das Programm 
recht umfangreich ist (e!wa 14 KByte), muStejerieMoglehkeil 
der Speicherplalzreduzierurio in Rehaeht :;ezogen werden, 
um es in den vorhandenen 16 KByte unterzubringen. Im iibri- 
gen hatsieh diese Vo ! ; i c:- 1 i ■.; ■ l :-; w ;";■ : ;~> o horoiis in ; ruho" erstelltcn 
Programmer] sov/;ilr: !ird ist ::i:ii 'ssten Bestandteil der mei- 
sten Eigenentwicklungen geworden. 






UOCHENTRG 


■ 


fiBSTRND 


■ 


TflGESNUMMER 





BESTIMMTEB UOCHENTRS 


a 


FEIERTRGE 


a 


KRLENDER-DISPLRY 


a 


KRLENDER-DRUCK 





PRQGRRHM BEENDEN 


Eingabe der gewiinschten Berechnung 











SEPTEMBER 13S4 


5D MO DI MI DO FR 


SR 




£ 3 4 S 6 7 


1 






a ia ii ia 13 14- 


15 






16 17 18 19 £<B SI 


22 






23 24 25 26 27 28 


29 






aa 








(alenderausdruck September 1984 





AuRerdem spo."[i7is-;c ■;:<::< iriii.ii sior.irssteil ■-ifihen eini;:en 
Festtt-xten. die '.vieds ToT eer-OTig; ■■.',■ eid an. aucYi Tabcllen nut 
Woclientags- und Monatsbezeichnungen sowie eine Tabelle 

miider Anzahi [ago pi o Morial. Bcsofiders a: orwahnen isl die 
Tabelle 0$. Sic- onihalt die Dnten der Hilfstabelle zur Errech- 
nung des Osterdslsi-is li: id sr zwec'-'.s Platzsrsparnls im Cha- 
rakterformat and in verkiirzter Form vorhander. Rodundanto 
Di^enleile sird ■■/■.■eggelass.-sn sis ■vs'ss'i beirr- Lesen der Ta- 
belle wieder hinzugefugt. 

Die Subroumen jhornohreon don grofftOFi Toil der Berech- 
nungenunddic in p-iri'smi ivieder :>."■ tanfni onden Arbeiten. 
Dies hat uebeu den Fort'ail von Redunssnzer {^ss.cieroetz- 
ersparnis) den V;nleil. &,-ii bes^iirnile Vort;iin-e getrennt aus- 
getestet werdon konnter Innorhalb ;;c Routine fall! die I'eiei- 
lagstabelle auf. Sio wurde hier, unn'nieh.i im (nilialifle-ungsteii. 
untergebracht. well sin bol '.■vlorlorrioltem Aufruf der Feierlags- 
routinen jedesmal neu in Rohform zur Verfugung stehen soil. 

Gro3e Zahlfe.'uverie s-n:i :, n airgemeinen mit dem Befehl 

>VAL« verbundsn. Damil wt<: otxvri [fills Rpeieherplal/ gespart 

Im "Mainline* wird im wesontfenen dss Zi.sammenspiel der 
Snh-Oiiihor. ;;". naeh ge:ie! 'or A..if^;.-ibo. gestcuert 

Die Aufbereitur; des Kaler;-Mdi\ii.."|..s-.; erfolgt im FAST- 
Modus im Bild3t;l irrnarjeicher Nach Ai.lbsieitung wird mit 
COPY gedruckl. Jeslialb iiiL.'iler; Keir-e speziellen Druckbe- 
fehle verwendet werden, und es konnte Gin grofler Teil der 
Displayroutinen cinoosct?) woide.i. Die A..isgahe der groBen 
Jahreszahl am Kalfef-dbrar-- ■.■;,■ i.j erlolgt n '. e'lie^ kleinen Routi- 
ne, die auf den Zeehennenera:-' des ZX-RGM zugreift. Der 
Diuck eines kornplet'sn Kalerdeis daceit x-.va as lit M in a Ion. 

Soil eir: Kaleoderspiucf; oder sine Widi'iurig eingebaui wer- 
den, sind ein paar U-;rnporti:ii Prinl Hotel-Jo /wischen die Zei- 
ten 3710 und 3720 einzufijgen. 

Soil zur Ausgabo des ■■ ( ,aiondois em anderer als der ZX- 
Printer verwendet werden, sol. to dieser grafikfahigsein. Even- 
tuell isl das Programm den Gs-gebenheilen ar.zupassen (zum 
Beiapiel Kaler^ler-'ciiirner: hi.,.-; S:euicheo zi.sammensetzen). 

Bei Eingaben w:id priizipiell in den SLOW-Modus geschal- 
tet, um eine flackerlreie Linsrsbe zu erzielen. 

Besonders gro3er Wert wurde auf verstandlicbe Diaioge 
und auf das Abhandeln 'a.'s-^ier Fingaben geiegt. Es sollte 
n : cht moglich sein. mil -ai-solio:"! Eingascr. das Programm zum 
Lingewoilten Ausstieg zu bringen. 

Nach erfolgtem Eintippen und Austesten des Prog ram ms 

wird mit dem Belehl »GOTO 58501- aui Kassetfe gespeieheii 

(Bernd W. Friedrich) 
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Basic-Listing »Kalender« 



10 REM ********************** 

20 REM *RUND UM DEN KflLENDER* 

38 REM * id B.U.FRIEDRICH * 

4-0 REM * 6500 MAINZ 1 l/'Sd. * 

50 REM **«****«**4*«***»****» 

60 FAST 

70 REM INITIALISIERUNG 

80 REM 

90 LET A0.NOT PI 

100 LET Rl-SGN PI 

110 LET B2»R1+A1 

120 LET A3.A2+A1 

130 LET P4-R2+B2 

143 LET R5-R3+B2 

150 LET R6«fl3+33 

160 LET A7-A4+H3 

170 LET AB*A4+R4 

160 LET A9-R6+R4 

190 LET B0»AS*B5 

200 LET B1-S0+C1 

210 LET 82-B0+R2 

220 LET B3«B0*A3 

830 LET B4-B0+A4 

240 LET B5-B0+R5 

260 LET B6-B0+R6 

260 LET E7iB0+R7 

270 LET B8*B0+AS 

280 LET B9-B0+A9 

290 LET C0»B0*B0 

300 LET ClaCB+fil 

310 LET C2-C0+A2 

320 LET C3.C0+A3 

330 LET C4=C0+A4 

340 LET C6"Ca+R8 

360 LET C6-C04-AB 

3S0 LET C7=C0+A7 

370 LET CS-Ce+fla 

330 LET C9-C0+A9 

390 LET D0-CB+B0 

4.00 LET D1-D0+A1 

410 LET D2-D0-.A2 

420 LET H1«RS*C0 

430 LET H4-H1&A4 

440 DIM L«(D2) 

450 FOR I-RB TO C6 

468 LET Lr '-■ 

470 NEXT L 

480 LET R*j 

490 LET Si 

500 LET Ci 

BIB LET EI = " EINGABEFEHLER 
RRIGIEREN" 

820 LET F|»"UOCMENTWO" 

530 LET G«> N/L 

840 LET d»»" BERECHNUNG NICI 
OEGLICH" 

560 DIM OS IR7,R7) 



860 LET 

570 LET 

580 LET 

890 LET 

800 LET 

610 LET 

620 LET 

630 DIM 

640 LET . . 

650 LET Tl 

660 LET Tl 

670 LET Tl 

680 LET Tl 

690 LET T« 

700 LET Tl 

710 DIM Ml 

720 LET Ml 

730 LET Mj 

740 LET Mi 

780 LET Ml 

760 LET Mi 

770 LET Mi 

730 LET I 

790 LET I 



■ 



'1316021" 
1717130" 
'1S1S230" 
■19203*1" 



R6) -"8222SB1" 
R7) ="2323680" 
A7'jB8) 

HI) *"SONNTflG" 
A2) *"MONTAG" 
R31 ."DIENSTRG" 
R4) x"MITTUOCH" 
A5) ■"D0NNER3TAS 
A6) a"FREITfiG" 
R7) «"SRMSTAG" 
B2,A9) 

HI) -"JANUAR" 
fl2) m"FEBRURR" 
R3) -"MAERZ" 
B4) ."APRIL" 
SB) »"MAI" 
UUNI" 
JUL I" 
^■AUGUST" 



800 LET M*ifi9> -"SEPTEMBER" 

910 LET M*iB0) -"OKTOBER" 

820 LET MliBl) -"NGUEMBER" 

830 LET M« (B2) -"DEZEMBER" 

340 DIM TiB2) 

360 FOR I"fil TO B2 

880 LET T(IJ «D1 

870 NEXT I 

880 LET T(fiB) *C6 

890 LET T(A4) aD0 

900 LET T(BB) -D0 

910 LET T(flS) -00 

920 LET T161) -DC 

930 LET H<""" 

940 GOTO 3920 

950 REM SUBROUTINEN 

360 REM 

970 REM SR DRT.EING.U.PRFG. 

960 3L0U 

990 LET D*»"" 
1000 INPUT D| 
1010 FAST 

1020 IF Ot«"X" THEN RETURN 
1030 IF D*-"" AND H(<>"" THEN LE 
T DfiH* 

1040 IF LEN D|(>B0 THEN SOTO 120 


1080 IF D* IA3) < t" ." OR D$ (R6) < >" 
." THEN GOTO 1200 
1080 FOR IiRl TO 60 

1070 IF I-H3 OR I-B6 THEN GOTO 1 
090 

1080 IF CODE DJ(I) <C8 OR CODE D» 
II) ;D2+A5 THEN GOTO 1S00 
1090 NEXT I 

1100 LET J-UAL D»fA7 TO ) 
1110 LET M=UAL D* CA4 TO H5) 
1120 LET DaUAL D«( TO A2) 
1130 IF J>1S82 THEN GOTO 1160 
1140 IF J (1582 THEN GOTO 1220 
1150 IF M*H1+D<URL "1018" THEN G 
OTO 1220 
1160 GOSUB 1310 

1170 IF M<fll OR M>B2 THEN GOTO 1 
200 

1180 IF D>R0 AND D<*T(MJ THEN RE 
TURN 

1190 IF M-R2 AND D(»T(M)+S THEN 
RETURN 
1200 PRINT AT B8,A0;HjRT BB.A0; 

1210 GOTO 980 

1220 GOSUB I860 

1230 PRINT RT B4,B0;D«;AT B8.A0; 

J*;RT C1.B0J H«, G«iB* iA6 TO ) 

1240 5L0U 

1250 INPUT Di 

1260 FB5T 

1270 IF &*<>"'■ THEN GOTO 1240 

1280 LET D«="X" 

1290 RETURN 

1300 REM 5R SCMALTJAHRPRFG. 

1310 LET 5=A0 

1320 IF J/H40INT U/R4i THEN RE 

TURN 

1330 IF J/HIOINT 1J/H1) THEN GO 

TO 1350 

1340 IF J/H+OINT (J/H4) THEN RE 



URN 

1350 LET 

1360 RETURN 

1370 REM SR 

1330 LET 



=A1 



]>A2 THEN GOTO 1420 
I4UW LE! X=DltfM-Rl) 
1410 GOTO 1440 
1420 IF S*R1 THEN LET U=A1 
1430 LET X.URL "INT i (306*M-324) 
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<t) -INT (Z/Hl) + INT IZ/H4) +X+D" 


204-0 


LET K*(B2) = ,, 17i36 T.D.DT.EIN 


1460 


LET X=RH-fl-INT <R/R7)*R7 


HE IT 




14.70 


RETURN 


2060 


LET KliB3l»"aiU RLLERMEILI 


14.30 


HEM SR A5K 


GEN 1 ' 




14.90 


LET TU-URL "760+PEEK 16396+ 


2060 


LET K«<B4)«" 4BU5STflG'■ 
LET KitBS) >"2412 HEILIGRBEN 


PEEK 


16397*256" 


2070 


isoa 


POKE TU.URL "143" 


D" 




1510 


SLOU 


£060 


LET K«(B6)*"2S12 l.UEIHNRCH 


1520 


IF INKEY«<>"" THEN GOTO 153 


T5TRG" 







2090 


LET K«1B7)="2612 2.UEIHNACH 


1530 


IF INKEY«="" THEN GOTO 1630 


TSTflG" 


154-0 


LET 1|=INKEY* 


2100 


LET K$<BS>="3112 5ILVE5TER" 


1550 


FAST 


2110 


RETURN 


1550 


RETURN 


2120 


REM FT.CflLC. 


1570 


REM SR CLR50REEN 


2130 


LET Y-AB 


1580 


FOR I-B4 TO CI 


214.0 


LET X=X-S-UAL "120" 


1590 


PRINT AT I,fl0;L« 


2159 


IF X<"D1 THEN RETURN 


1600 


NEXT I 


3160 


LET X=X-D1 


1510 


RETURN 


2170 


LET Y«A6 


1620 


REM 5R UEITER 


2180 


RETURN 


1630 


PRINT AT C1..R0, • H"; CMRt URL 


2190 


REM SA TRB, UPDATE 


"14.1 


1 IIHlllB— 1 Ml in l ual "14. 


2200 


LET X|-3TR« X 


8"y% 


ana^^^Br^cMRt u«l "us" 


saw 


LET Y*»5TRi Y 

IF LEN X«<A2 THEN LET X*""B 


164? 


(ToTuB 1490 


2220 
2230 


1650 


IF lio-Z" THEN SOTO 1690 


IF LEN Y»<A2 THEN LET Y»."0 




PRINT AT C1.A0; Lt 


"+Y( 
234-0 




1670 


COPY 


LET K«(N, TO A4) »X*+Y* 


1660 


GOTO 1630 


2250 


RETURN 


1590 


IF I«*"X" OR I*b"U" THEN RE 


3250 


REM SR F.TRGE 


TURN 




2270 


G05UB 1920 


1700 


GOTO 1640 


22B0 


LET K»tfil,B7 TO C0).5TR« J 


1710 


REM SR OSTERN 


2390 


REM OSTERN 


17S0 


FOR I=A1 TO fl? 


2300 


GOSUB 1720 


1730 


IF JiHlfrURL 01(1, TO A2) OR 


2310 


LET NaflS 


d>Hl-Al+Hi*UHL 0»iI,A3 TO A4) T 


2320 


LET X"0 


HEN GOTO 1773 


2330 


LET YhP 


174.0 


LET C«B0+UAL 0|(I,A5) 


2340 


G05UB 3200 


17B0 


LET E=H1+H1+UAL Q«CI,A6) 


2350 


LET X=0+01 


1760 


GOTO 1790 


2360 


LET Y*P 


1770 


NEXT I 


3370 


IF X(=D1 THEN GOTO 3400 


17B0 


RETURN 


23B0 


LET X=A1 


1790 


LET 0»INT (J/A4) 


2390 


LET Y=A4 


1300 


LET FaJ-CINT IJ/69J *B9) 


2400 


LET N*A6 


1310 


LET G-E-B1*F-<INT i IE-B1*F) 


£410 


GOSUB 3200 


•D0) *D0) 


£420 


REM KRRFREXTflG 


1820 


IF NOT URL G»(I,A71 THEN GO 


2430 


LET X=0-A2 


TO 164-ffl 


2440 


LET Y«P 


1330 


IF G-C8 OR G*C9 THEN LET G = 


2450 


IF X>AO THEN GOTO 3430 


G-Rl 




2460 


LET X=01+X 


184-0 


LET H=J+0+G-C- EINT ! IJ+O + G- 


2470 


LET Y=fl3 


C) /A7) *H7i 


24S0 


LET Nafl4 


1350 


LET 0-C84-G-H 


2490 


GOSUB 3200 


1360 


LET PmA3 


2500 


REM RB5.TRG F. OSTERN 


1870 


IF 0<-01 THEN RETURN 


2510 


GOSUB 1310 


1380 


LET O-O-Dl 


2520 


LET R*Dl+CB*S+0 


1390 


LET P-fU 


2530 


IF P=R4 THEN LET R=R+D1 


1900 


RETURN 


3540 


REM ROSENMONThG 


1910 


REM SR FT-TRB. 


2550 


- ET x = 5-DO-BB 


1920 


DIM KS iBB.COi 






1932 


LET Kj (Al> *"0101 NEUJhMR" 






194.0 


LET Ki(AS) *"0601 ML. 3 KOENI 


2530 


IF Xl^Ca+S THEN GOTO 2510 


GE" 




3590 


LET Y»A3 


1950 


LET K«IA3J=" 2ROSENM0NTR 


3600 


LET X=X-C8-S 


E" 




3610 


LET N^A3 


1960 


LET K*m4>»" BKftRFREITHG 


£620 


GOSUB 2300 






S638 


REM HIMMELFAMRT 


1970 


LET K«{RS)." 1Q3TER30NNT 


3640 


LET Xa«+D0+A9 


HO" 




2650 


GOSUB 2130 




LET K*(fl6J»" 203TERM0NTR 


3660 


LET N»A8 


G" 






GOSUB 3200 


1990 


LET KI(Pl7>="0105 MAIFEIERTfl 


2580 


REM PPINGSTEN 










sees 


LET K«ift83=" 5CHR.HIMMEL 


2700 


G05U8 2130 


FflHRT" 


2710 


LET N=A9 


8010 


LET K«(H9)»" 1PFINGSTS0N 


2720 


GOSUB 3200 










9020 


LET KtiB83=" 2PFING5THQN 


3740 


IF X<«D1 THEN GOTO 2770 










S030 


LET K«iBl)=" BFRONLEICHN 


2760 


LET Y=A6 


RM" 




3770 


LET N-BB 
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£?33 Gosue 2200 

£730 REM FRONLEICHNRM 

2800 LET X=R+D0+D0 

2310 G05UB 2130 

2320 LET N = B1 

2S3a sosub 2200 

3340 REM U.TRGE I. TAB. 

2850 FOR K-fil TO B3 

3860 IF K*iK,A3)(>" " THEN GOTO 

3910 

2370 LET MoURL K»(K,P,3 TO P.4) 

3360 LET D=URL K«iK, TO R2j 

2890 GOSUB 1330 

3900 LET K(1K,R5J =STR( X 

2920 REM BUSSTRG 

2930 LET X.C3-X 

394-0 LET Y-Bl 

2950 LET N=B4 

2960 GOSUB 2200 

2970 REM l.MRI 

2960 IF J) 1.1889 THEN GOTO 3010 

2990 LET K»(R7!»L«f TO 00) 

3000 REM 17.JUNI 

3010 IF Jj-1954 THEN RETURN 

3020 LET K»iB3)=CHR» B0 

3030 RETURN 

3040 REM SR KRLP 

30S0 FOR ZitX TO fi-7 

3060 LET N-N+fll 

3070 IF U=1SS2 RND M=B0 RND N<BS 

THEN GOTO 3130 

3060 LET NS*STRJ N 

3090 IF LEN N«<R2 THEN LET N(*CM 
Rt R0 + N« 

3100 PRINT RT Y, IZ-R1) *R4+R3; Nf 

3110 IF N-U THEN RETURN 

3120 NEXT Z 

3130 RETURN 

314.0 REM SR KRLENDER 

3150 CLS 

3160 FOR I = R2 TO C9 

3170 PRINT AT P0.I,CHR* 03; RT R2 

,I;CHR« URL "131"; AT B9,I;CMR« U 

RL "131" 

3180 NEXT I 

3190 FOR X=R1 TO B3 

3200 PRINT RT I.,R1;CHRS R5.;TRB 

0;CMR» URL "133" 

3310 NEXT I 

3320 PRINT AT P0,fll;CHRI H7;TRB 

D0;CHR« URL , '132":>sr ft^Rl/CHRl 

URL "130";TflB D0;CMRB URL c, 129", 

RT B9,fll;CHR« URL "130";TRS D0; C 

HR* URL "129 ,, ,RT R4,R3;' , SQ MO 

DI MI DO FR Sfl";flT fll,fi3;M|i 

K) jTRB C5; J 

3330 FOR I»R2 TO Cfl 

324.0 PRINT RT R5,I;CMR« R9 

3250 NEXT I 

3260 LET U*T(K) 

3270 IF K = R2 THEN LET U»U+S 

3280 LET NaflB 

3290 LET Y=H7 

3300 GOSUB 3050 

3310 FOR Y=R9 TO 37 STEP R3 

3320 LET Xifil 

3330 SOSUB 3050 

334-0 IF N = U THEN RETURN 

3350 NEXT Y 

3360 RETURN 

3370 REM 5R URHRESEING . U . PRFG . 

3330 PRINT RT 00 , R0; R J; " JRHR" ; BS 

(R6 TO ) : RT CI, Hi; "JJJJ" 

3390 3L0U 

3400 INPUT D* 

3410 FRST 

3420 IF D«n"X" THEN RETURN 

3430 IF D»«"" THEN LET DS*HStR7 
TO > 

3440 FOR I = fll TO LEN 0( 



3450 IF CODE Dtlll <B8 OR CODE D* 
(I) >D2+H5 THEN SOTO 34B0 
3480 NEXT I 
3470 GOTO 3510 
34S0 QOSUB 15B0 
3490 PRINT AT B8,H0;E» 
3500 GOTO 3380 
3510 LET U = URL D> 
3520 IF J>=URL "1583" HND J<=URL 

"2399" THEN RETURN 
3530 GOSUB 1580 

3543 PRINT RT BB , R0; J; " < -" ; J«; J R 
T Zl ,fiS, *!-;. ■•■■:: ; i.-: ft; ~c ■ 
3550 LET Hi" " 
3560 3L0U 
3570 INPUT I* 
3580 FRST 

3590 IF I««"" THEN RETURN 
3500 GOTO 3560 
3610 REM SR FT.RU5G. 
3620 CLS 
3630 PRINT TR8 R8; "FEIERTRQE 

. ■■- -;:■ ■ 
3640 PRINT KftRlj TO H2) ;" . " ; K« < 
R1,R3 TO R4 );".". KS CR1 . B7 TO ) ; " 
, "JTJIURL K*lh1,RSj, TO R21JTRB 

B7i Kt (fll,R6 TO B6) 
3650 FOR I=R2 TO BB 

3660 IF KSiljHll =CHR$ R0 THEN GO 
TO 3883 

3670 PRINT Kill, TO RS) j " . " ; Kt i I 
,R3 TO R4:i ; ". ";K« 1R1,B7 TO S ; " , 

-".-: :, : ".. ;■,:■; . fiSJ . TO H3) ;THB B7 
; K.s il . R6 TO ) 
36S0 NEXT I 
3690 RETURN 
3700 REM SR JUMBOZRHL 
3710 CL5 

3720 LET I«=STR4 J 
3730 DIM LS<RB,D2+fll> 
S-'J-e FJR I = fil TO R4 
3760 FOR K = fll TO R8 

3760 LET C=PEEK (URL "76S0"+(CQD 
E Ilili + R1) iRS-RS+K) 
3770 FOR L»HB»I+fll TO R8*I-R7 5T 



(C -RE* INT 



EP .. 

3780 LET L* IK, - ; =Cr!R 

(CHS) ) tURL ,, .:■•: , .: 
3790 LET CaINT (C/fl2j 
3800 NEXT L 
3810 NEXT K 
3820 NEXT I 
3830 FOR I»fll TO R6 
3840 PRINT RT I + Bl,B9JHiI) 
3350 NEXT I 
3960 COPY 
3370 DIM L»(D2J 
3880 RETURN 
3390 REM MR1NLINE 

3900 REM 

3910 REM HERDER 

3920 CLS 

3930 PRINT RT R3,R0;L|;TRB R4;"* 

"JTRB C7; , *"JTRB R4;"# RUND UM D 

EN KfiLENDER ♦"JTRB R4;"*"jTflB C7 

; "*",L* 

3940 DIM LS (C-2i 

3950 REM EINGRBE RKT . Dfl 

3960 PRINT RT C0 J R0:R»;" 



:ges 



3970 SOSUB 98<2 

3980 IF D»""X" THEN GOTO 5810 

3990 GOSUB 1360 

4000 SOSUB 15B0 

4010 PRINT RT B0.R3J "RKTUELLES " 

;BBlRl TO R5),":";RT B2,R3;D*;TR 

B B9;T((X);HT C1.R0; RSJ G|,B( £R5 

TO J 

4020 SLOU 

4030 INPUT U 

4040 FRST 
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4050 IF Ito 

4060 LET Hl-DS 

4870 LET Ut»Tt II 

4080 REM MENUE 

4090 CLS 



50T0 40.20 



UOCHENTAG". 

?TAGESNUMMER" , 
ER UOCHENTflG' 1 , , , 
rcj.tr< i AGE" , . , , "§ KALENDER 
ISPLAY" , , ,"§ KALENDER-DRUCK" 
. , , "H PROGRRMM BEENDEN" 
4110 G05U6 1490 



THEN GOTO 4220 

THEN GOTO 4340 

THEN GOTO 4560 

THEN GOTO 4770 

THEN GOTO 5150 

SOTO 5260 

THEN GOTO 5590 

THEN GOTO 5B10 



4120 IF It 

4130 IF I* 

4140 IF I* 

4150 IF It- * 

4150 IF I»="5" 

4170 IF li-"6" 

4180 IF I* = ' , 7" 

4190 IF It="X" 

4200 GOTO 4110 

4210 REM UOCHENTR 

4220 CLS 

'130 PRII 

. , "BESTIMMUNG PES L 

ER SIN YORGEGEBENES DATUM: 1 

4240 PRINT AT CO , HO; At; B«; AT CI. 

AljCt 

42S0 GOSUB 980 

4260 IF D(-"X" THEN GOTO 4090 

4270 G05UB 1380 

4280 G05UB 1560 

4290 PRINT AT 60 , S3, Dt ; TRB B9;TI 

4300 GOSUB 1630 

4310 IF I*«"X" THEN GOTO 4090 

4320 IF It^U" THEN GOTO 4320 

4330 REM ABSTAND 

1 CLS 



TRGEN 

4360 PRINT AT CO , A0; At; " 1 . " ; Bti A 

T Cl,Rl;C« 

4370 GOSUB 980 

43S0 IF Di»"X" THEN GOTO 4090 

4390 GOSUB 1360 

4400 PRINT RT B0,R3;D« 

4410 LET Uofl 

4420 GOSUB 1680 

443B PRINT RT CO , SO; At; "2 . " ; Bt; A 

T Ci.Al.Ct 

4440 GOSUB 930 

4450 IF Df'X" THEN GOTO 4*90 

4460 GOSUB 1380 

4470 PRINT RT BO.BSjD* 

4480 LET B=A 

4490 G03UB 1560 

4500 PRINT AT 63 , A3; "RBSTANO : "j 

TAB B9; ABS CU-.B) j " TAG" 



4510 IF ABS 



>A1 TH 



: PRII 



4S20 GOSUB 

4530 IF It- 

4540 IF I*= 

4S50 REM TAGESNR. 

4S60 CLS 

4570 PRINT TR8 A9; 

", ., "DER UIEUIELTE . ... 

5", "1ST EIN BE5TIMMTE5 DRTUh 

4580 PRINT AT CO . AO; At; Bt; AT I 

Al;C« 

4590 GOSUB 980 

4600 IF Ot""X" THEN GOTO 4090 

4610 GOSUB 1380 

46=0 GOSUB 1580 

4630 PRINT AT BO , R6 ; "DER" ; TAB 



4660 LET I. „ 

4670 LET D=D1 

4530 G05UB 1160 

4690 G05UB 1380 

4700 GOSUB 1S80 

4710 PRINT AT B3,fl8;"IST DER ";fl 

BS CU-fWj". TAG DES JAHRES ";[>«< 

A7 TO ) 

4720 IF UAL iD|<A7 TO )+D»SA4 TO 
AB) tD* !A1 TO A2> i <UBL CHf IA7 TO 
)+Ht(A4 TO A51tH*(Al TO A2> ) TH 

EN PRINT AT 83, HO; "WAR" 

4730 GOSUB 1630 

4740 IF It="X" THEN GOTO 4090 

4750 IF It="U" THEN GOTO 4660 

4760 REM BEST. W.TAG 

4770 CLS 

478 pri nt trb ^ "T a =yn+ffliiil":«l 
WBfSBsEBM' , . . "ijrnn faellt EIN da 

TUM IN CEH" . ■■FOLGENDEN URHREN RU 
F EINEN", "BESTIMHTEN UOCHENTRG ? 
■■,,,■' (AU5GABE UON 20 ZUTPEFFENDE 
N" , "DATEN1 " 
4790 PRINT AT CI . RO; A t; F t J B* I H6 



4610 


INPUT 


I* 








4920 


FAST 










4830 


IF It 






GOTO 


4090 


4840 


IF It 


■'■' THEN LET IfsUf 




FOR I 


Rl TO 


A7 






4-360 


IF It 


T* II, 




LEN 


It! THEN 


GOTO 4900 










4870 


NEXT 


[ 








4880 


PRINT 


AT 88 


AB 


H, R 




4390 


GOTO 4300 








4903 


PRINT 


AT B0 


A3 




";TRB B 


9; 1$ 












4910 


G05UB 


1580 








4920 


PRINT 


AT C0 






ANFANG5" 


;Bt;AT C 1 , fll ; C < 










GOSUB 


980 








4940 


IF Dt 


."X" THEN 


GOTO 


4090 


4950 


CLS 










4960 


PRINT 


it; 








4970 


LET B 


«R0 








«.9.;.t; 


GO£:JiE: 


1330 










LET U 


= UAL Dt 1A7 TO 




5000 


IF It 


*Tt (X, 


TO 


LEN 


It) THEN 


GOTO 5070 










5010 


LET U 


■ U+fU 








SO20 


IF U>URL ,, 9fl99 


THE 


N GOTO S 



5O30 LET Dt<A7 TO ') '■ 

5040 GOSUB 1100 

5050 GOSUB 13B0 

SO60 IF I|(iT»iX, TO 
N GOTO 5010 

5070 PRINT TAB B3; D* 

SOBO LET BaB+Al 

5090 IF ~ ' 



5100 PR IN' 



._.. GOTO 5010 
TAB B5; "ENDE" 
5110 liQauo 1630 
5120 IF It»"X" THEN GOTO 4090 
5130 IF IM"U" THEN GOTO 4770 
5140 REM F.TAGE 
S150 G05UB 1920 
5160 CLS 
5170 PRIN" 
, , ■BESTIMMi 

■ .-::. ■■■■-.■ .:-■■■ -■'- ■■ -'■ :.- ~zn ■-: 

UM 1533 - 2399" 
513Q J05UB 33S0 
5190 IF M»"X" 01 
4090 

5200 GOSUB 2270 
3-10 S0SU6 36S0 
5220 GOSUB 1830 
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5238 IF H*"X" THEN GOTO 4090 




5240 IF I»=-U" THEN GOTO 3150 




5250 REM KflL. DISPLAY 




5230 CLS 




5270 PRINT TRfi 07: JMai^- . r.H 








R7,06;"B >UER EINEN ' MGNRT" ; RT 
R0,R6; "8 FUER EIN JRHR" 






5230 bOSUB 14-80 




5290 IF I|«"l" THEN GOTO 5330 




5300 IF IJn"2" THEN GOTO 5430 




5310 IF I*="X" THEN GOTO 4.89a 




53S0 GOTO 5280 




5330 PRINT RT R9,R0;L«;HT R7,R6, 




CHB« URL ,, 14.6",fiT CS .R0, fl*J "RNFP, 




NG5";B*;RT 01, Rl, C* 
534-0 GOSUB 980 






5350 IF 5»*"X" THEN GOTO 4090 
5360 LET 5=fll 






5370 G05UB 13S0 




5380 LET K=M 




5390 G05U8 3150 




54-00 GOSUB 1630 




5410 IF I|*"X" THEN GOTO 4090 




5420 IF I|i"U" THEN GOTO 5260 




5430 PRINT RT R7,F)0,Lt;RT R9.R6/ 




CHR« UHL ,, 146" 




5440 GOSUB 3380 




5450 IF D«»"X" OR I*«"'" THEN GOT 




4090 




5460 LET D-fll 




5470 FOR Lnfil TO 82 




5480 LET M=L 




5490 LET K=L 




5500 G05UB 1380 




5510 GOSUB 3150 




5520 GOSUB 1630 




S530 IF I*a"X" THEN GOTO 4090 




5540 NEXT L 




5550 GOSUB 1630 




5553 IF I«="X" THEN GOTO 4090 




5570 IF I(i"U" THEN GOTO 5260 




5530 REM KRL.DRUCK 




55S0 CLS 




S60O PRINT TAB AS : |Jj^M|tajlil" : r.H 






CK EINE5 JRHRESTP7LENDER5■ , . , ,TRB 




6, " IZEITRRUM 1563 -S3yS.' " : HT B0 , fl 




0i fit; "DRUCKER BEREFT MflCHEN . . . " 




5510 GOSUB 3380 




5530 IF DS^X" OR I**"" THEN GOT 




4090 




5630 GOSUB 3710 




5540 LET D=fll 




S650 FOR L»H1 TO BE 




5660 LET MnL 




5670 LET KeL 




56B0 GOSUB 1380 




5690 GOSUB 3130 




5700 COPY 




5710 NEXT L 


^■^■'^A''-:-'- 


5720 LET 0**" "+STRS J 


5730 G05UB 1920 


\ ' Mil- -I'- i 


5740 GOSUB 2270 


5750 GOSUB 3630 


5730 COPY 




5770 CLS 




5780 COPY 




5790 GOTO 4090 




5300 REM POH-ENDE 




5810 CLS 




5820 PRINT RT_B0,E1, "■SHU" ; CHR« 
URL "150" : "M1M" 


.EF"-IFr-ELF B=:.:.Fl.iT..«GF,i"" 


5330 STOP 




5840 REM SflUE 




5850 CLEAR 




5360 CLS 




5870 SRUE "KhlLENDEg" 




5830 RUN 
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Overload — 
Lade- und 
Speicherrouti- 
ne filr Pro- 
gramme, die 
iiber RAMTOP 
liegen 

Daten und Z80-Programme oberhalb 
von RAMTOP sind dem Zugriff des Be- 
triebssystems entzogen, also gegen 
eine Verschiebung im Speicher und 
den NEW-Befehl gesichert. AuRerdem 
is! die Losung, ein Maschinencode- 
Programm iiber RAMTOP zu legen, 
nach unseren Erfahrungen praktika- 
bler als die Mbglichkeit, Programme in 
iiberlangen REM-Zeilen unterzubrin- 
gen, wo die Wahrscheinlichkeit gege- 
ben ist, dal3 das System bei unvorsich- 
tigem LISTen abstiirzt. 



Dieses Proa g ii s-ii ■!!■■■ ii ies . .■.,:. inobs- 

systems aus. Oberhalb von RAMTOP gelagerte Programme 
lassen sicti namlich ioider nichi diiich ik:ti SAVE-Belehi des 
ROM abspeichem. Diodes kir:ir;o Iv'nsch in. en programm. das 
aufeinemZX81 mitmindestens 16 KByte lauft. erlaubt die Ab- 
speiohcrLng. Urn osobei daj 1:7:1 Lirin ::■;:]. isi nooh ene kieme 
Vorarbeit nolig: 

POKE 16388,188 ; POKE 16389,127 ; NEW ; POKE 
32700.0 ; POKE 32701,1 : POKE 32702,255 ; POKE 
32703,255 ; POKE 32704,201. 

Nachdem dies gescnehen ist. ni.n otzt oine REM-Zeile mil 

455ByleLan ,. ".;gl wordei 'Jun wird der Hexcode unter 

Verwendung des HEXLOADER eingetippt. Dieser fragt jeweils 
8 Byte und nach NEWLINE die dazugehorige Priifsumme ab. 
Stimmen die Byte;; ind dio r'nifsu'iimo niclil uberein, so muB 
die Zeile neu eingegeben warden. 

Ist nun das Prccrsnn '.■'cl.sia'idig in do REM -2 oil;' oinyeye- 
ben, empfiehlt es sich. das. Programm erst einmal abzuspei- 
ctiem, Der Hexioader -iar-'ii iiunyeiosc;':uiidder Basicteildes 
»Ramtop-LOAD/SAVE*-Pro(irarnif!S einyetippt werden. DalB 
clasjetil vollslandige Programm melrrnals mi! RUN 31Qabge- 
SAVEt wird, versteht sich von selbst. 



Nach dem Aulos::-:ri melde-. sich das Programm mil dem im 
Bild darge stall re n Dis;*iy Die l-unklionsweise des Program- 
mes wollsn w!r an omen Geisfjiei erlaulern; 

Die am Anfang durr.hgsr'.ihrieii POKFj-Befehle haben be- 
wirkt, daB RAMTOP verkleinert und ein Maschinencode- 
Programm oberhalb dieser Adresse abyelegt wurde. Bei 
PRINT USR 327C0 ersehe.nt air dem Bildschirm die Zahl 
65535. 

Wenn Sie dieses Prouran.m st.:l speichern wollen, so slar- 
ten Sie das .RAMTOP- LOAD/SAVE* mil RUN. Wahlen Sie mit 
»S* den SAVE-"/ od us Bei dor A;;!r,igo wocien Anderung der 
System uariabten HAMTOPgebenSo -.\! ■ fur ''Jein ein, und das 
Programm beginnt nach nochmaligem Tastendruck, vom ak- 
tuellen RAMTOP bis zur Adresse 32768, das Demoprogramm 
auf Kassetle zu soe.'snepi. Nrscn BeonC'gi.ng dieses Vorgan- 
ges meldel sich dei Roomer mit. R 3;"!0, ■.vennallesrichtigge- 
laufen ist 

Nunversuchen wir. da;! Pmoramn ■.vioderoiiizaladen. Nach 
dem Start mit RUN dmcken Sie ~\ - uric andern RAMTOP wie- 
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RAMTOP 



Ht:i=. :■ h at, it, ? 



, 'r-t'7S:?,' i .-.-3.£. 
L ; i::L:s-"iC&i36. 




GF_ jfl!_2 ;-.::.'.;;"^' ' 



5000 RQEHER 



ia,a; "RRMTDP ; 'MR 
13, 17; "TRSTE DRUEC 



=IHT (RT/256) 



i.5:-' 




:::■■ 


print jgyaaii 


:.-— - 




■:■ -.1.! 






FR5T 






o'l-i 









Ba s ic-Hi If sprogra m m 



derum nichl. Es wird nun von RAMTOP bis zur Adresse 
32768 das Programs -.or our KassMln oingeladen. Tritl ein 
Ladefehler auf, so meldel der ZX dies mit F/300, anderntalls 
orseh^nl R/300. 

Roi dieseri' Lieispiei naben wrr vor el.-w Anclerung der Sy- 
siemvariablenRAV: iCPwlxiesehwi Dicso-iitiibcrbosonders 
wichtig, wenn wir ein Ma=.;:'iinen|ji'0giamni von 1000 Byte 
Lange laden wolfe-i ur.s abor nic.-ii v.o; vicjio Bv les oberhalb von 
RAMTOP zur Verll.niu.'ig afe'ien. Der neue RAMTOP-Wert er- 
gibtsich dann aus oter Rech.'iunr,: 3?768-l 000-31768. Da 
die Berechrmnoj :-.hot scnwier'y ist und wir auch nicht vonje- 
dem Maschinen;rooj,r ; mrri dis Uinge konnen, empliehlt es 
sich, bei jedem AbSAVEn den aktuellen RAMTOP-Wert zu no- 
tiereo. so daii nan ;rn beim Laden sofe 1 " nn- Vorfikjiiriy ha!. 
Damitergebon aichauch koine Sen ■■-.■■ i or gkoiien. wieelwaeine 
Differenz zwischen gefordertem und vorhandenem Speicrier- 
platz. Naturlich isi BREAK wall rone nines LOAD- oder SAVE- 
Vorganoes jeder.-ei! iiicgnch Ini einzelnen gliederl sich das 
MaiC.i-iinor'prop.rrirrri in (olgoiide Abschnitte: 

16592-16S95 Dattsn: Anfangs- und Endadresse 

ifiliflfi-'-fifJeo SAVE-Routirie 

lfinfia'S;'83 LOAD-Rouline 

itiHh!) 16017 PRINT-Routine 

leaia-'eaao ccwcmbbrjcn- Routine 

16931-169S6 RAMTOP-Andeiuna 
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Software-Toolkit 



Das Programm »Toolkit« fur den ZX81 
ist eine in Maschinensprache ge- 
schriebene Softwareerweiterung, die 
hauptsachlich einer komfortableren 
Programmerstellung und Editierung 
bei der 16-KByte-Version dient. 

Die Erweiterung belegi 2816 Byte, wobei 508 Byte das ei- 
gentiiche Programm ausma;.--iei; uric der Rest a I s Workspace, 
hauptsaehlieh fjr die iibNLIM Bourne, diert Das Toolkit wird 
oberhalb von »RAMTOP.' ahgclcnt mi:; i?t desnalb vor verse- 
henlliehem I. osol'cn n- it -MEW- gesieier'. Die Erweiterung 
bie:ei lolgeririebin-zusafzlioh;.': Di-eki.-Mede-Befehle: 

1. RENUM, aufgerufen durch; 
RAND USR 29952 otine Argumente 

numeriert ein Basicprcgramm nei,. bodmiond mit derZeilen- 
nummer 10 in Zehnerschrittcn. Auf cine Wahlmoglichkeil uer 
Arrfangsnumme-' ode;- des Inkrem enies ■.■vurde verzichtet, um 
das Programm nichi unn6':(; zu vergToSorn. Dafiir werden aber 
alle GOTOs und GOSUBs ceri neuo'i Zoiicnnummern ange- 
pafit, das heifil eberilalls umiiumodcrt. so daf) das Programm 
mit den neuen Nummern sofort lauffabig ist. Bei sehr langen 
neu zu numeiiert idon Program no: i solito voi der Anwendung 
des Betehls der FASTModus dnq :■>?• oaaitet werden, da da- 
durchderVorgangoil-.Qbiich ~-i=t--"l -ilwuniyi wirti {^irka 2 Sekun- 
den fur ein Programm mit 250 Zeilen). 

2. DELETE, aufgerufen durch: 
FAST 

PRINT USR 30259,zeile1,zeile2 

foscht die Zeilonr;ir'.?i,Prca 'ar ti iy s ;■ I j&'le l bisZeile2-1. Da- 
zu ein Beispiel: FAST N/L PRINT USR 30259,80,350 loscht 
dieZeilen 80 bis 340 bi.'Z'eliupgs'Aeist de letzte Zeile vor der 
Zeile350. Vordiesem BelehlmuiS dor hAS'l Mode eingeschal- 
tet werden, da sons;, m der moisten -alien dorZX81 nurnoch 
durch Aus- und = ■isoi-alton wiarje' n dei . Noimalzusland ;.u 

bringen ist, 

3. FIND, aufgerufen durch; 
PRINT USR 30374,'Text" 

sucht in einem Basicpiogramin cn- : Zoicnenfok-jc- >-Texk und li- 
stel alle Zeilen. die diese holgeooihabom Sic dart aus beliebi- 
yen Zeichen Ljosiener;, (n.c.n aus Gratiizdchen und den Be- 
feh Is wo rtern. dio r-iob trotz L- Cursor mit SHIFT eingeben las- 
sen (zum Beispiel THEN, AND, TO und so wetter). 
Damit krjnnen zum Beispiel durch den Befehl: 
PRINT USR 30374,*A=" 

alle Zeilen gelistel wsnien, in denen dor Variablen A ein Wert 
zugewiesen wird Oa sieh oiosor Vc:c.ang mit alien Variablen 
durctifuhreii lfi.3l. karn man damit .eslstellen. ob. wie oft und 



t wjrden. Weiterhin lassen 
sich zum Beispiel mil dem Befehl: 
PRINT USR 30374,THEN" 
alle Zeilen listen, in denen der Befehl THEN vorkommt, Oder 

PRINT USR 30374'TO" 

werden alle FOR- ML X i-Schleifon aufgelistet 

4 I i-EXDLZ. adoerd'en durch: 

PRINT USR 303O0,"HeXZatlf 

ergibt den dezimalen Wert der »He»ahl« im Bereich 

O0OO...FFFF. Beispiel: 

PRINT USR 30300,"3FFF n 

ergibt 32767, 

5. DEZHEX. aufgerufen durch: 

PRINT USR 30338,Zahl (Oder Variable) 

ordbl don nexadez-'mden We' 1 der Zaiil im Bereich 

65535. Dazu ein Beispiel: 

PRINT USR 30338,32768 

ergibt 8000, wobei hier im Gegensatz zur H EX DEZ- Routine 
beideWerle, also dei hoxadezimde und der de^imale auf dem 
So.nirm e.-scheinen. 

Bei den Befehlen FIND und HbXDEZ dlirfon als Argumente 
nach der USR-Adresse ntir Zahlen und keine Variablen ver- 
wendei werden. Al.erdinus kann bei alle i Ion: Gefehien die 
Adresse zur besseren Vf-r'.ta.ndrdi-eit als Variable benutzl 
'.•.■i; rd on. Beispiel: 
LETRENUM = 29952 
RAND USR RENUM 

entsprichtdem Befehl RANI) USR 2f.'952.i ; -t aber bedeutend 
ubersichtlicher. 

Nun zur Eingabe des Toolkit--, in dor 1 Speicl:ei desZX81. Da- 
zu dienl ein Hilfsprogramm .TccliiiN--. welches in Listing 2 ab- 
gedruckt ist. Bevor das Hilfoirooi^i-i'n emgelippt wird, muB 
noch RAMTOP durch: POKE 16389,117 und NEW aui die 
Adresse 29952 li h - -i n I r i inn mitder Ein- 

gabe des Hrnsp.-ograinruos beqonnen ■.verden. Isl das Pro- 
gramm eingegeben. wird os n t -.RUM- oesfeilel und die 509 
Bytedes Toolkits aus Listing i konrieniri IBIiyte-Abschnitten, 
nach denen jeweils nach de- ar-.i.s|)i er.fionrloi-i Piufsumme ge- 
fragtwird, eingegeben werden Bc-i nroht Korrekter Prufsumme 
verlangt dasProgn.iini'i .-iulijiiKiiisoh ciio lotzton 16 Byte noch 
einmal. Ist die bmgaije fler Hox-Dalen abgeschlossen, zeigt 
das Programm selLishir.dig dio noch zu unternehmenden 
Schritte, die zur Aufzeichnung der Daten aui Band notwendig 
sinil auf dem P/ldsohirm an. 

Das Programm »Tollkiti ist somit zur slandigen Benutzung auf 
Kassette aufgezeichnet. 

VorjedemLaaen des Toofiils n;u3 mit POKE 16389.117 und 
NEW die SpeicberC'bergreri;.--: a'-if 29952 heraogesotzt wer- 
den. Danach kauu :\ \ i v ■ i... uu car. sick selbst i,-iil.ia;isierl 
und durch ein abi.cHieUordi:-.--, NEW den Speicher fiir Basic- 
Programme wieoYs- -roigidl. goiaden werden. (J. Diet!) 



94 iM& 



ZX81 



Adrebse 












HEX 


Da 


., 














F 


f 


29952 


21 


7D 


40 


11 


OB 


77 01 


00 


00 


7E 


FE 


76 


28 


OE 


05 


ED 


1356 


29968 


AG 


ED 


AO 


4E 


23 


46 23 


09 


CI 


03 


18 


ED 


21 


OA 


00 


22 


1318 


23981 


FD 


76 


ED 


43 


01 


77 21 


7D 


-10 


7E 


ED 


4B 


01 


77 


ED 


43 


1879 


3000(1 


FF 


76 


FE 


76 


C8 


ED 4B 


FD 


76 


70 


23 


71 


EB 


21 


Ofl 


00 


2166 


30016 


09 


22 


FD 


76 


EB 


23 22 


03 


77 


23 


23 


7E 


FE 


EC 


28 


OB 


1577 


30032 


FE 


ED 


28 


07 


FE 


76 20 


F2 


23 


18 


CE 


23 


E5 


22 


16 


40 


1833 


30013 


DF 


CD 


D9 


14 


CD 


3A 15 


21 


08 


77 


11 


00 


00 


73 


BE 


20 


155! 


300G4 


06 


23 


79 


BE 


2P 


28 15 


23 


23 


13 


C5 


ED 


4B 


FF 


76 


08 


1438 


3OO80 


ED 


43 


FF 


76 


78 


El CI 


20 


E4 


El 


CF 


2C 


13 


62 


6B 


29 


2163 


30096 


29 


19 


29 


AF 


32 


FC 76 


CD 


FB 


75 


El 


E5 


11 


05 


77 


1A 


1896 


30112 


FE 


76 


2S 


20 


47 


7E FE 


7E 


20 


15 


05 


C5 


CD 


9B 


09 


ED 


2030 


30128 


SB 


as 


77 


In 


CG 


01 1? 


13 


1A 


CE 


00 


12 


23 


CI 


Dl 


70 


1274 


30144 


23 


13 


13 


DB 


7E 


FE 7F 


28 


14 


E5 


ED 


5B 


03 


77 


1A 


D6 


1782 


30160 


01 


12 


13 


lfl 


DE 


00 12 


CD 


5C 


05 


El 


18 


E7 


23 


EB 


El 


1581 


30176 


D5 


22 


16 


40 


PF 


CD 09 


14 


El 


01 


05 


00 


E3 


5B 


1C 


40 


1643 


30192 


EB 


B7 


ED 


42 


ED 


BO FR 


23 


C3 


29 


75 


01 


05 


77 


11 


E8 


2131 


302OS 


03 


CD 


39 


76 


11 


64 


CD 


IS 


76 


11 


OA 


00 


CD 


19 


76 


1191 


30224 


7D 


C6 


1C 


02 


03 


3E 76 


02 


C9 


AF 


ED 


52 


3C 


30 


FB 


19 


1GJ7 


30240 


C6 


18 


FE 


1C 


20 


07 5F 


3A 


FC 


76 


87 


7B 


C8 


02 


32 


FC 


1379 


30256 


76 


03 


G9 


E7 


CD 


92 OD 


CD 


8A 


15 


2fi 


16 


40 


7E 


CD 


B4 


192 


30272 


07 


23 


22 


16 


40 


60 69 


CD 


D8 


09 


E5 


E7 


CD 


92 


OD 


CD 


1822 


30 288 


SO 


15 


60 


69 


CD 


D3 09 


Dl 


CD 


5D 


OA 


C9 


E7 


ED 


5B 


16 


2089 


30304 


40 


lfl 


FE 


OB 


C2 


8fl 75 


21 


00 


00 


06 


04 


13 


1A 


FE 


OB 


1-57 


30320 


28 


OD 


D6 


1C 


DA 


8A 75 


29 


29 


29 


29 


85 


6F 


10 


ED 


44 


1437 


3033G 


40 


C9 


E7 


CD 


92 


OD CD 


8A 


15 


78 


CD 


9C 


76 


78 


CD 


AO 


£321 


30352 


76 


79 


CD 


9C 


76 


78 CD 


AO 


76 


AF 


D7 


C9. 


OF 


OF 


OF 


OF 


1372 


30368 


E6 


OF 


C6 


1C 


D7 


C9 2A 


16 


40 


23 


22 


01 


77 


7E 


FE 


OB 


1595 


30384 


C2 


8fl 


75 


06 


00 


2^ 7E 


04 


FE 


OB 


20 


F9 


05 


21 


7D 


40 


1393 


30400 


E5 


7E 


FE 


76 


20 


05 El 


22 


16 


41 


C9 


23 


23 


23 


23 


ED 


1G37 


30416 


5B 


01 


77 


13 


23 


E5 D5. 


C5 


1A 


BE 


20 


04 


13 


23 


10 


F8 


1474 


30432 


HI 


Dl 


El 


28 


09 


7E FE 


76 


20 


Efl 


Dl 


23 


18 


D2 


El 


C5 


2340 


30448 


CD 


£5 


OA 


23 


23 


23 CD 


7F 


07 


CI 


18 


C4 


00 


00 


00 


00 


1237 


Listing " 


HEX-Daten zl 


ZXai-Toolkit 

























































umangsadresse = 29952 
Endedresse : 30460 
Armshl Bytes = 503 
An:aM gesamt = 2571 

Ta belle. Speicherbelegung 


E: 


7500 
76FC 

01FC 
OAOE 


z: 


;™ 


■3hne Da 
iiedarf 'g 


namt 











UPEHUM.7500H 


UC1:76P8H 


UDF1 ; 7633H 


UDT0H:7682H 


UERR:753AU 


UFI1.76B5H 


UFI2i76C8H 


UFI3:76CBH 


L1FI5:7GD4H 


UFI6=76EEH 


UFJND:76A6H 


:jrND:755EH 


UHD1:766CH 


UHD2:767FH 


UHEXDEZ:75FBH 


UHT0D:765CH 


ULa3:75GDH 


ULP1 =75 09H 


ULP2:7529H 


ULP3:754hH 


UI_P4:7577H 


ULP5:753CH 


UHEW11:756FH 


UNEW1:753FH 


LINE142.-75C4H 


UNEW3;75DDH 


UFN1=7GA0H 


UPH: 763CH 


UREN:751CH 


US1 :761AH 


US2=762DH 


US'JB:7G13H 


VAHZli77BlH 


VANZNUM:76FFH 


VFLAG-76FCH 


VI_EH ; 7703H 


VL1NHUM:76FDH 


VNUM;7705H 


VNUKTBL:7708H 




Startadressen der Routinen 
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ZX81 





Listing 2. Hilfsprogramm aim Laden und Started des Maschinencodeprogramms »Toolkil« 


1 rem »**<«.****»■«**>«<*.**■* 


2 REM * TiTOLPTLE m 


3 REM * . JOACHIM DIETL * 


4 REM * BflMMSTS. 3 m 


5 ftE.1 * 7100 MEILEiROHfl * 


6 REM Mm«s«-J>*»»»»wia* 


10 DIM fttC=.10J 


20 LET d«i 


30 CLS 


40 LET 358M*B 


50 FCTR 1 = 1 TO IS 


60 PP!NT AT 1 ,e,S995S>j 


70 PP1NT ST 21,0; "SVTE-HRs'sJ 


80 INPUT H* 


90 IE LEH H*<>2 TNEN 5CT0 100 

100 LET (WC0OE H*(l)-ZS:al6*CDDE B*££j-2S 


110 POFE 23951 -j A 


120 LET fl*fJ5-Cf)R* f 1 


138 PPlNT ^T I ,7 5 H* 


140 LET eSU«»C?sM"t*fi 


150 LET J-J+l 


1B0 IF J*5-09 THE'' GOTO 240 


170 NEXT r 


.80 SDSOB 3^0 


190 IF I»^"J" THEfl GOTO 30 


200 LET J-J-16 


210 CLS 


220 PRINT PT 3 ,.Si*DIE LETZTEN 16 BYTES WI ERERHdLFN " 


230 G0T3 40 


240 GtJSUB 580 


250 IF r*-*J" THEN SOTO 230 


280 LFT J=J-1P 


270 GOTO 210 


280 r'_E 


290 PRINT "NUN FOL&FKCF EEFEHLE IM" 


300 PRINT ■■BlftEKTWQGE flUSFUEHKEIl. 


3:0 PRINT AT 5,3, "1. FflFT" 


320 PS I NT PT 7,3;"2. PRINT USP 30253,1,390" 


330 PRINT AT 3,3;"3. BAHn6EKAET AUF SUF1IAHKE SCHAL.TEH" 


^40 PRINT AT 12,3;"4. C.OTO 390" 


350 STOP 


360 PRINT AT I.Ds-CHECtCStfM-.'jCStiMV" OK ?CJ/rD" 


370 INPUT If 


38.0 RETURN 


390 SAVE "TOOLKIT" 


^O0 FAST 


410 FOR I--1 TO 503 


420 PO^ 29=151. I, CODF Mill 


430 NEXT I 


440 NEW 



96 iSSgSS 



ZX81 



Maschinencodeprogramm zu «Toolkil« 
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ZX81 




Marfkt&fedlllik Verlag AMengesellschaft Buchveriag 




• Alle Biicherzum halben Preis! 

• Nur solange Vorrat reichl! 

• Auslieferung erfolgt 
in der Reihenfolge 
des Auftragseingangs! 




> i '1L I -*'-*' 




QH&6 AH,** J i aW i„^„HOM; ou^Jp ,f «, 9tf 




±£g\ •-.„ 




B«al.ilnurrmoiHO«B Dwi^D AH^O 



MEIN SINCLAIR ZX31 




SINCLAIR ZX SPECTRUM 



Woiterbuch der Computet 






MaridAX 



Aktiengesellschaft Buchverlag 




CBasic - CBBO 




Einliihrung in die ftlikracampulertechni"K 



57 praktische Basic-Progra 




Basic sus der Praxis 







Wie man in BASIC program miert 




Strukturieries Programmieren in Pascal 



M ik ro c out puter-l nlerfa cef ibel 




AHe Preise inkL MwSt 

Der Versanti erfolgt mit offener Rechnung 

zuziigl. Porto und Versand 



I Praktisehe Problemanalyse 






Is. 
I III I 



Ill 

lis I 

Is 

l I 

% * 

1 \ 




CO 




m 



















I 




































-! 


















I 





§ C/) 

13 

5 m 

|Z< 

loo 
" rn 

</> 

H 
i rn 



m 



ise ink!. MwSt. 

id ertolgi mit offeni 
nto und Versand 



n Mikracomputern 5 




Prngrammieren von Mikracomputern 7 




Programmieren von MikrooompuiErn 8 



PrpgrammierBP van Mikrncomputerp 9 



Spectrum 



M&n5ck cLiaexe 
&lcli nichtJ 



Jeder Spiel&r hal v.orKo;;;;., dio mi' Zifi'eri :' 1.2,3.4) uekoin- 
zeichnetsinri. GowaNt ■.-■.■or 'ion die- or tso.'oc. icnden Kegel mit 
denTasten 1 bis 4 Kami nu iv iiemem Kegel gezogen werden, 
fahrt der Spectrum rjy mi: auicnatisch. Stetien me hrere Kegel 
zur Auswahl, tiberlaBt er Ihnen die Entscheidung. Wahlen Sie 
einen nicht zum Ziehen be;;:criliylen Kecel. meldet das der 
Computer. Wild o:n i\e;:f:l v,;sschni!S«;;n* befordert ihn der 
Spectrum in don Warteraum zurtictt. 

Das Bewegung-'iisld be;."oii a.ii , ? Posiiionen fz(x). ylxij. 
Die Positionen mit x= 1...40 ite;ien einen Uniauf dar. Da aber 
der 4. Spieler bereils hai x = 30 einsetzt und ebenfalls einmal 
das Bewegungsfeld durolTiaiifon n.ifi ■.■vu/vio dieses bis aut 
x = 70 erweitert v-.cbei ab X--10 eino Uboiiagerung auftritt. 
Die x-Werte konnen also von 1 bis 70 gehen. Je nach Spieler 
wird die entsprec.en-.1e Difteienz zum absoluien Start (x=1) 
beim Bewegon dos Kegols addiorl ;pd= 10. 20 beziehungs- 
weise 30). Der Punkte end stand nach Bewegen eines Kegels 
liogtjodooh imnior zwischpn und 40. so dafl Gin genngere; 
Aufwand betrieben vverde-! iruiite. ,.i:~ der, ?-jiik:evergloic!" 
zur Ermittlung do;-, /iellGk.les yus-.jlu.'ii-cn. Die Umrechnung 
zwischen PunktGena'svLiid und Posiiioriseridstand ertolgtje- 
weils vor be?i lorn hirvwpgeri eines Kegels. 

Die notigen Pausen zum Lesen des Textes auf dem Bild- 
mbezirlii n i i lolrum Losc-n des Kornmon- 

tars wurden mit mehr oder weniger aufmunternden Melodien 
erzeugt. (Josef Kastl] 



J? 

w 



Spectrum 



Erliiulerung 


um P, g, a mm 


Eriiiuteruncj der Variablen 


Anme.kung: 


Die in FkrMiagramm abgeschriebenen Zah- 


k a ,k h ,kc,kk = 


Spmngvariable 




len weisen euf die entsprecbanden 


kS = 


GrLil'\'P:;:l:e-i dts iiHnellen Kegels 




Pragramm-Zeller] hinl (UPR = Unteipro- 


e& m, c$ - 


Namen der Sieger 




gramm} 


f$ = 


Name des Verlierers 


Zeile 




xS- 


Ausweichstring 


10-24 


Variable definieren und = setien 


s[4). K4I. u(4], v|4| 




40 


Wei Felder 5, t, u. v definieren (enlsprecnen 


- 


Felder der 4 Kegel jedes Spielers 




1 * I 4 Kegel des ieweiligen Spielers) 


zum Beispiel 




50-54 




5(1) = 


Kegel 1 von Spieler 1 


SO 


Spielerzabler -0 setzen 


5(2)- 


Kegel 1 von Spieler 2 


100-1 BO 


Titelbild 


1(3) - 


Kegel 2 von Spieler 3 


120-132 


Aullisten der Spielrsgeln, wanrend die Gratik- 


t(4l - 


Kegel 2 von Spieler 4 




zeichen und das Bewegungsteld generiert 


m. m = 


Zeile, Spalle, wo dei sicn lie'.'.'oQcndc Kcgni 




werdan (GOSUB 7800. GOSUB 8000) 




hinspringt 


160 


Leschan des Bildschlrms 


a$(asRi) - 


aklueller Spielername 


162-199 


Eibgabe der Spielerzabl <jnd -namen 


>.!.k,p,g...i - 


2ablvariable oel FOR NEXT-Scnleifen 


200-298 


Gralik des Spielfeldes 


aspi = 


aMueller Spieler 


290 


Lrjscben des Komrnemarteldes 


api = 


Anzahl der Spieler 


300-499 


UPR (Unlerpragramm): WOrfeln und WutibI- 


w- 


Wurielaugenzabl 




graSk 


anf- 


Anfangspunklzahl des Spielers bei Elnseteen 


500-550 


UPR: 3mal wfirfeln 




einas Kesela 


551-585 


UPR; Spielerreibenfolge 


P d = 


PLinkldifierenz zwisehen Anfangspunlcliahl 


1000-1100 


Ablaufstenerung 




ura) dem absoluten Zahlbeginn des Bewe- 


3001-3450 


UPR: Bewegen eines Kegels 




gungs1eldes|z(1V y(1|) 


3595-3699 


UPR: Snselzen eMes neuen Kegels 


pa = 


40 + pd: lelzte PiJnktzaN vor dem nach 


3740-3765 


J JPR- '"-V'j^ri irirc-r- von: SNirl 




.Hause.-Fabren 


3999-4050 


UPR^™"^ 


Pb = 


Mfiximaie Punkl;a;i! Ui« der Kegel haben 
durl, damil or .zuhause« oinfahren kann. 


5000-5290 


Naqb .Hause-Fahren 


' = 


Zablvariable der FOR...NEXT-Scbleife wshrend 


6000-6150 


Siegerehrung 




des Fahrens 


6170 


AbschluBMd 


h- 


f-1: kannzelehnat die vorhergegangene Posi- 


7000-7250 


UPR: Musik 




lion. wo entweder leeres Feld oder ilber- 


7800-7870 


UPR: Definition des Bewegurigsfcldos 




;iprun;iener Khii:I joprintod wird. 


8000-8070 


UPR: Definiflon der Gralikzeichen 


nvn- 


Koordinaten der Kegel in Wartes.ellung 


t- 


Kreis 


Xz, vz = 


P^^^^ rBaPi 


b- 


DoppelkreiS 






■ : 


?i 






° : 


Kegel 4 






Z- 


£ZU» 






Program mstr 


uklur 


VariafcHenliste 






100 iSife 



Spectrum 



praesen ti' 
E M 5 C H 

A E R G E R E 

D I C I 



MENSCH RERGERE DICH NICHT 



t$ © © ■( 




NSCH AERGERE DICH NIGH" 




Q 



Hardcopys des Spielverlaufes 





















PFM 


















4 


















Neustadt/Do 


U 6 




















11 






















UET 
LET 




















1 - I 


















































































































R£M 









110 PRPER 1: LET k =4 : GO 5UB 10 
3: LET fc=2: PRPER 6: GO SUB 103: 

PAPER S: GO SUB 103: PAPER 4: G 
SUB 133: PRPER 3: GO 5U6 103: 
LET K*4: PRPER 1: GO SUB 103 

IIS INK 6: PRINT RT 1,2J "JOE'S 
h«i tere 5Pi«lesammlung , ';AT 3, 13; 

117 INK 1; ' PRPER 6: PRINT RT 6, 
2; "M E N 5 C H" : PAPER 5: PRINT 
RT 9,7: "fl E R G E R E": PRPER 4: 

PRINT RT 12,15; "D I C H" : PAPER 



PAPER 1: INK 



i£~ PRINT RT 



NK 0: GO SUB 
"5PIELREGELN" 



123 GO SUB 


80fl0 




1^4 PRINT 
ern Sie uii . 

125 CL5 : 
125 PRINT 
hst 4 Kege 
tan Farbe : " 


-IT 15,3, "B 
'.AT 17 .0; 
te ! ": RHUS 

30 SUB 160 

IT B,*j"J« 

hT a. 20; * 


Basic-Listing »MADN« 





£ £> £ E" ; AT 



Wenn Sie heute bestellen und schon 
morgen spielen wollen, dann... 



Nutzen Sie unseren heiRen Draw. 



JJoM/SOfL- 



0211-6801403 



iMfe, 101 



Spectrum 



127 (-PINT AT 7, a 
aehr't. d'sr 5psclru 



!.?=■ PRINT AT 16,i 
d^f~5p= •: t ,-ijrii in ■ 



L urn losgehon . " : PAUSE 
148 GO SUB 160: GO TO 162 
160 CL5 : LET k=21: PAPER . 
SUE 104: RETURN 



REM 

163 REM 
ELER i 



■ hNZhHL D 

■ FIT 4,2; " 



EINGABE DER I 



INK 0; PRI 
": AT 7,2; " 



170 REM 

171 REM 
MEN * * * 

172 INK. fl: PRI! 



174 DIM a* ispi ,6 

ITS FOR X = l TO S: 

L7b INPUT "Spiel. 

177 PRINT AT 14+ 



200 REN ***** SPIELFELD 

203 CLS s LET (=21: PRPER 5: GO 

5U6 104 

235 EORDER 4. -'PPER 3: INK 

210 FOR :; =1 TO 40 



512 PRINT AT : 
T X 

216 PRPER 7: PRINT AT 
RT 13, 15: "G."' : AT 17 .9: "£. 

. ..£„ 

SIS = Ofi x=l TO 4: PRIN" 



SPIELERDflRSTEL 



225 PRPER 4: INK 0: PRINT AT 17 

3; '■£_"; fl- ■• ■ 
■ is . a. - 



PAPER 5: FOR I 



«8f"K 

:: PR IN 
=3 TO 



■': NEXT X 
230 PLOT 10,2: DRAU 143,0: DRAU 
0,143: LRh.„ -143.0; DRhU 0,-143 
; PLOT 9,1: OP.Ra.i 15S . : DRAU 0,1 



=■ .3 '3 PEN 

240 REM s * * 

DE5 FELDES * * * 

i-i-2 PRINT AT 1,4; 



E DICH NICHT" 
£43 PRPER 6: 

244 IF 5Pi=l 

245 PRINT AT 



■ BESCHRIFTUNi 
MEN5CH AERGE1 



PRINT AT 9,2; a J 
THEN GO 70 .250 
9, 13; at £3) 

THEN g:. TO 550 



24S IF SPi=3 THEN G 
249 PRINT AT 15,2;a 
260 PRINT AT 3,22; " 
'7 ,3.2, "Uuerfe in : " 



25 : 



; at 



E 290 
203 00 TO 10 
2i0 PAPER S: 

INT AT X ,21; " 

X ; RETURN 
293 REM 

300 REM * 

301 PAPER 5: 

■' . AT 9,25, ■' 
305 GO 5 -IB 2 



■ * * * UUERFELN i 

PINT AT 8,25; " 

.AT 10,25; " 

i: ink i: print at 
at 13,23; "wuer re I 

ei ";at 16,21, -Dru 
.; "5i-: eine" ; AT IS 
; AT 18,21; "Taste . 



307 PAUSE 
310 LET hi = INT 
312 PAPER 7: 
AT 9,25; "iJ" ; ft" _- 
315 IF '.. = 2 THE'-! -RINT 



RND.6J +1 
w=I THEN^PRINT 

■"- AT 9,25; " 



314 IF 
MO" : AT 1 

315 IF 



315 IF 

HN";at i 

317 IF i«=6 THEN 
2£" ; AT 10,25: "Ei 

319 PLOT 500 .Si 
U 0. 16; DRAU -If 

321 RETURN 



JHENPRINT BT 9,; 

[NT AT 9 , : 



= 1" IN: 



PRINT AT 9,: 




102 afe 



Spectrum 



395 IF K 

493 REM 
500 REM 



=1 THEN GO TO 4280 

* * * * 3 k UUERFELN 



50-5" GO SUE. 290 
Se? PRINT RT 12 .; 
'■; AT 13 .21 ; "Swa I i 

; '■ fe in , bis' 1 ; RT v 

.RT 16,21; "B hab£i 
533 GO SUB 7120 
SfS LET 2=3 

sua Go sua oaf 

513 LET I=Z-1 
515 IF IliB THEN i 
517 GO SUe 290 
5S3 PRINT RT 12,; 
RT 13,21; "noch "; : 

nee (m . " 

523 GO SUB 714tf 
53a IF 2=0 THE 

nt at 12, ai --' 



_. . go sub 230; pri 
; hT 14,21; "SUjcck 



bat go ro sis 

550 REM 

£51 REM * * 

:iLG= * * * 

5S3 LET aspi=a: 

555 IF -3SPi =SP: 



:£.E'l[i_ERREIHENF 



THEN I 
.100 HMD 



,3S HN-, J iasP: ' :-103 HND V Id: 
100 THEN GO TO 553 

553 RETURN 
1000 REM 
1B01 REM * * * * RBLRUFS" 

1005 GO SUB 550 





=1 THEN LET pd=0: 
























-&■ THEN LET Pd=30: 










40 + pd 






























aspi) =a or 


laspi > =o OR v (aspi 



1050 GO SUE 3000 

1.059 RE-! * Hochsai. wuerfein * 

H260 IF u:=t- THEN :J W 5U6 290: PAP 
ER 5: INK. O^ PRINT RT 12,21; "Sie 

; AT* 14^21 ! ' wuerfsUi. '^RT 16,21; " 

Sis hatlSiT'jHT 17^1;"*ins ■' 6 ' ! " 
: GO SUB 7.i.3,i- GO -;r 1040 
1075 GO SUE 290: PRPER 5: INK 0: 
PRINT RT 14 .£1; ■ , 0a:-"; RT 16,23;" 
Ka£ChSI5";flT 13 .26; "bi t te. ■' : GO 
SUB 7200 
1100 GO TO 1005 



3000 REM 

3001 REM 
KEGELS * 
3005 REM 



3015 IF 
) AND LU 
AND (V 1.3: 
EN LET k 

TO 320i 
3v2£_ 1= 

AND (via: 
EN LET K[_ 
O TO 3200 
3025 IF (S 



GEN EINE5 

veraleieh 

bswsgenden 



spi ) =0 OR 
i ) =0 OR u C 
= OR J (a£| 



*="E": LET py=U 

S (aspi J =0 OR 5 

s s -■ L i = 8 OR t la 
^; : =0 OR u (asp 
= ■'£": LET PV=v 



EN LET 

o to 3; 

3040 GO sua 



.... Sie";flT is.ai 

3055 PRINT RT 17,21. 
'■; AT 18,21 "" 



",;AT 14,21 



I 3", RT 20,21; "£. - Ta 

3057 PRU5E O: PAUSE 

3O60 IF INKEY*="1" THEN LET K**" 

3062 IF INKEY$="2" THEN LET kS = " 

1EN LET kS = " 

IEN LET k« = -' 



3064 IF INKEYI 
o065 IF INKEYS 



3090 IF pv 
3100 GO TO 
3105 IF tS 



:"£" THEN LET I 

:'-D" THEN LET I 

;"£'■ THEN LET I 

:"E" THEN LET I 

■ a THEN GO TO i 



r OR : 



. OR 



GO TO 5010 

3103 GO SUB 290 

3110 PRINT RT 12,21, .. 

RT 13,21. ' = ir,in ur, --.; RT 

el...:-.* I.; ;h-:n" : HT 15,21 

13 .21; "ie^^ i. - '.: RT 
e M ;.nT 19,21. '■ t.ppsri 

3115 GO SUB 7063 

3120 GO TO 3040 

3.99 REM * * * Be 
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_ ,21; "b 
"; RT 20,2 



Wenn Sie eine freundliche Bedienung 
and spielkundige Berater suchen, dann . 
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3203 LET PHbPV+W 


GO SUB 3655: LET t iasp i ) =3n f : GO 


32ca if anf>pv then let pu=pv+*a 


TO 1060 


: let pn=pn#*a 


3650 IF uiaspii=8 THEN PRINT RT 


32S5 IF pr. ..pa THEN LET pn=pn+100 


r (an F) ,y Ian f ) J "E" : GO 5U8 3635: 
GO SUB 3565: LET uiaspiisanf: GO 


IF p-i^i i-jjip-.i OR pn-:. iaipi i np 




TO 1060 


TO 5010 


3660 IF v(aspij=0 THEN PRINT RT 


3203 IF prtSlAA+pd THEN GO TO 501 


r (anf ) ,y (anf ) ; "E": GO SUB 3658: 

GO SUB 3665: LET f t-SSPi.J «»n f ! GO 




3210 GO SUB 290 




3215 PRPER 5: INK 0; PRINT AT 12 


3655 LET pn=*nf: GO SUB 4200: RE 


.21; "Sit bsmeqen^flT 13,21; "den 


TURN 


Kegel. " 


3575 IF 3=Pi=l THEN LET m =5 : LET 


3217 PRINT h)T IS ■ 24 . k % 


n=3: GO TO 3595 


3215 FOR >i = l TO 18: BEEP .85,8: 


3576 IF s=.pi=2 THEN LET m =5 : LET 


NEXT x 


n = 15: GO TO 3535 


3220 FOR F= fpv+1) TO pn 


3877 IF aspi=3 THEN LET m=17: LE 


3230 BEEP .05,15 


T n=15: GO TO 3695 


3240 IF 3EPi=l THEN PRPER 1: INK 


367B IF aspis* THEN LET ni = 17: LE 




T n=3: GO TO 3695 


3258 IF aspi=2 THEN PAPER 5: INK 


3630 IF aspi=l THEN LET BaS; LET 




n=5- GO TO 363* 


3250 IF aspi=3 THEN PRPER 2: INK 


3631 IF iipi=a THEN LET i,i =S : LET 


3273 IF aspi=4 THEN PAPER 4: INK 


n=17: GO TO 3595 
3632 IF ;=p>=3 THEN LET lit = 17: LE 





T n=17: GO TO 3695 


3330 IF Ka=l THEN RETURN 


3633 IF aspi=4 THEN LET m = 17: LE 


3235 IF r;-fa THEN GO TO 5180 


T n=5: GO TO 3695 


3300 PRINT hT : ( ■■ i .j ■■■- I- S 


3635 IF aspi=l THEN LET M =7 : LET 


3320 LET fv=f-l 


n =3 ■ GO TO 36 35 


3325 IF rv=l OR fv=ll OR fv =21 


3535 IF 3SPi=2 THEN LET ffl =7 : LET 


R fv=31 OR Fv=41 OR Fv=51 OR i"v = 


nsl5: GO TO 3595 


61 THEN PAPER " INK 3: PRINT RT 


3637 IF s;P!_=3 THEN LET m = 19: LE 


z i f v) .. y •:. fv) . "£" . GO TO 33S« 




3330 PhPER 3: INK 0: PRINT AT zi 


3658 IF^Ipi = 4."THEN LET its = 19: LE 


fv) ,u i fv) ; "B" 




3350 IF fvopv THEN GO 5U.6 4008 


3698 IF J ispi :i J THEN LET IT. =7: LET 


33S0 NEXT f 


n=5: GO TO 36hS 


3355 LET x3 = K* 


3691 IF a-pi=2 THEN LET m=7: LET 


33S7 IF pn=40 THEN LET pn=pn-40 


n=17: GO TO 363S 


3390 GO SUB 4208 


3692 IF 3SPi=3 THEN LET ffi = 19: LE 


3395 LET KJ*XS 


T n=17: GO TO 3695 


3488 IF m»"C" THEN LET Slaspi)= 


3693 IF -asp;=4 THEN LET 111 = 19; LE 


pn 


T n=5: GO TO 3595 


3410 IF K$="E" THEN LET tiaspi) = 


3695 IF tK=l THEN GO TO 42S0 


pn 


3696 PhPER 7. INK 


3423 IF *.* = "£■' THEN LET Uissp.)^ 


3653 PRINT RT lit ., n ; "E" 


3430 IF HS = "E" THEN LET v(aspi)= 

3435 IF KC=1 THEN GO TO 5105 


3699 RETURN 

3740 rem * * Yoa Start wgFah 


3750*if k*="C" hND itia-pi)=anf 


3440 LET pn=0 


!JS' '- : .sip s ) =a-t K OR v ;a=pi i = ar> m T 
HEN GO TO 3760 


3458 RETURN 


3530 REM 


3752 IF K4 = "C;" hND isiajpiiMnf 


3595 REM * * * * EINhETZEN EI 


or i= i- .= ■;.?- -i =jr, ( mR „■ ■sip l .; =an s'.i T 


NES NEUEP-, KEGELS * * * * 


HEN GO TO 3750 


3600 IF s (aiPi J =an f OR t(aspi)=3 


3754 IF kS = "E." hND ( s i a =.p i i =an f 


nf OR uijjpi)=5ri; : OP: vuspilsanf 


□R t iispi i =an f or viaspi)=anf» T 


THEN GO TO 1858 


HEN GO TO 3760 


3305 I-'j SUB 250 


3756 IF K * = "£." hND (£ (as Pi ) =an f 


3610 PRPER 5: INK 8: PRINT ftT 13 


OP t (asp i i = an f OR u (asp i j =an f J T 


,21; "H U R R fl !";RT 15,21, "Sie 


HEN GO TO :^750 


du-:r r = r, ", RT 15 . 21 : ".'« i t eineni" : hT 


3755 Go TO 3072 


17,51, "Kege i. nei.i":flT 13,21: "beg 


3768 GO 5UB 290 PRINT RT 12,21; 


3615 GQ 5UB 702-0 


"5ie hater," R^ 13 ,21, "£ l ntn j n - ■ ■ 

HI" l.»,a."-l -31- b! ■■P" H" 13 21. " 


3628 LET K3 = l: GO SUB 3248: LET 


Kegel. de--;PiT 16 , 21, "H.jih i. '. ! " .. rt 


Ka=a 

3630 IF 5(a-Pi>=0 THEN PRINT RT 


15,21, "sia nussisn 1, : fi T 19,21:"v 
Oi»";RT 2e ,21. "it = .-T.purU t. ■ : K T i: I . 


vi.i.-.rl .'J ;sri ' 1 , "C": GO 5UB 3c75. 
GO SUB 3655- LET Si3SPi>=anF: GO 


21.: "Kie-afahren." 
3763 GO SUB 7860 


TO I860 
3540 IF tta»Pil=0 THEN PRINT RT 


3755 GO TO 3848 


z (an F) , y ianf 1 ; "&" : GO SUB 3638: 


3999 REM i ■* * * UEBER5PRINGE 
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N EINE5 KEGELS *■ * * * 


S AND i (aspil (>pnl OR 1 1 (asp i 1 >0 


4003 I 1 ^ fv>40 THEN LET fv = fv-*B 


RND tisSPi; tifl AND ( iaipi; (ip.u 


4002 IF fvssiii OR fv=t il) OR ?■„■ 


OR ■.U'ji.Pi; :-i'. RND '.KijPii :4S HN 


='.■ =: i :■ or -"■■.'-■■' ii; then prper i: i 


D Uta=pii ;jpr, ) OR IVlaSPiiJO RND 


NK 7 


viispnaa R\3 v fsspi i ■: -pn ) THE 


4805 IF fv=s (2) OR fv = t (2) OR f ■„■ 


N GC TO 5035 


=Uf2f OR rv=vi3i TKEN PhPER 5: I 


5032 GO TO 5040 


NK 7 


5035 IF pn<14S+pd THEN PRINT RT 


4010 IF fV=J(3i OR f-.' = t (3i OR Fv 


19,21: '■iJjih i. in ii-:': -PT 3:0 .21; "Si 


-j i ;,;. i-;: ;"v=v i 3J THEN PHPER 2: I 


nsn",HT 21 .23: " = r,deren.- GO SUB 
7060: 00 TJ 3-340 


NK 


4315 IF fv;S(4] OR fv=ti4) OR fv 


5040 IF Wcfl THEN PAUSE 50: GO TO 


-ji>-. 'I- ;■■.='.,' LA) THEN PRPER 4: I 


1050 


NK 


504-2 PRINT st 19 .21, "Bi t te" :RT a 


4023 IF fvasllJ OR fv=s(2J OR fv 


0,22; "diesEiaL";flT 21,23; "aussetz 


=S £31 OR fW=St*J THEN PRINT AT I 






5050 GO 5UB 7060 


4025 ' IF fvitTll OR iv-t(2i OR Fv 


5O60 GO TO 1070 


= t (3) OR Kv = t \*L> THEN PRINT hT z 


51O0 REM * * Nath 'Hause' fan 


4330 ' IF fVwiTii OR fv=uC2) OR fv 


5105 LET KC=1: SO TO 3400 


=ui3. OR fv:uUi THEN PRINT hT z 


S106 LET KC^0 




5110 IF F=pa+1 THEN PRPER 3: INK 


4035 ' IF rw«V(l) OR fV=V(2) OR fv 


0: PRINT RT z \p.Eii ,y i. pa : , "bC 
5115 IF F=pa+1 THEN LET FV=p3: G 


=U (3) OR fv=vi4.j THEN PRINT hT Z 




o sue 4000 


4040 IF PV>*3 THEN LET fv=fv+40 


5120 FOR F=l TO (pn-140-pdf 


4050 RETURN 


5140 IF aspi=l THEN LET yz=12: L 


4 199 REM 


ET xz=5+f 


4200 REM * * * * 5CHMEIS5EN E 


5145 IF aspi=2 THEN LET y2=7+f: 


INE5 KEGEL = - - - - 


LET XZ = 10 


4210 LET mas-pi =asp i 


5150 IF aspi=3 THEN LET yz=12: L 


4220 FOR r=l TO 4 


ET XZ=15-F 


1225 LET asp* cr 


5155 IF 3Spi=4 THEN LET yz=17-F: 


4227 LET KK=1 


LET XZ = 10 


4225 LET xt-t% 


5160 IF tb-1 THEN RETURN 


4230 IF siaspiJ-pn THEN LET K$ = " 


5155 LET fca = l- GO SUB 3240: LET 


cr l.et s;a=pii=e: go to 3575 




4235 IF tiaiPiJ=pr, THEN LET KJ = " 


5170 BEEP .05,20 


Li ■ ■ LET 1. ■:a;pi .' =S: GO TO 3560 


5200 PRINT RT yz .xz; K* 


4240 IF u iaspi) =pn THEN LET K$=" 


5210 IF i = ipn-140-pd "J THEN GO TO 


t" -ET uiaiPi^S CO "0 3665 




4245 IF v (aspiJ =pn THEN LET K$ = " 


5220 PRPER 7: INK 0: PRINT FlT «Z 


E" -ET j(3;pi.;--,5 GO TO 3590 


.xz : "fi" 


4230 NEXT r 


5240 REM * + Ueberspringen ei 


4260 00 TO 4310 




4280 GO 3U3 392 INK 0: PRINT RT 


524-2 "LET x* = Ki 


12,21. 'GH UEr-. i ■■ . RT I3,£3:a*<as 


5245 LET fv=F-l 


pil.HT 14,2l:"5 ; e due r f en " : hT 15 


5250 IF F«=0 THEN GO TO 5230 


il.-Tiu; 1 -, siaL- ,|3T 16 , 21 ; " -j on v tu- 


5353 LET f = tv L3T t.S=l: GO SUB 


ne"; RT 1? , 21; "an fans en . : st 19 . 2 


5140; LET k.b:0: LET f=fV+l 


i. ■ , HER-;ii~E" RT ;L3 .2i= ; ■■CIC- 1 RT 2 


52SS LET Kaal: GO SUB 3240: LET 


1,27: "NICHT" 




4235 GO SUB 7220 


5257 LET F V = F V +140+pd 

5260 IF Ji5jpi!=fv "THEN LET K« = " 


4290 LET Ka=l: GO SUE 3240: LET 


K%=a 


C" : GO TO 5270 

5262 IF t(aiPi!=fV THEN LET K$ = " 


43O0 PRINT RT Ki,n; K$ 


4310 LET aspi =niaspi 


C" : GO TO 5270 


4312 LET KK^0 


5264 IF U(aSpU = fV THEN LET fc$.a" 


4315 LET K*=X( 




4 320 RETURN 


5266 IF Vf3SpU=fV THEN LET HJ = " 


5000 REM 


F" : GO TO 5270 


5002 REM * * * * NRCH 'HRUSE' 


55 65 GO TO 52 80 


FOHREN * * * + 


5270 PRINT RT 'J- .«; k) 


5005 rem * * uafernsctvsidung 


5275 LET K9)=*S 




5250 NEXT f 


5010 G3 3'JE 223 


5255 IF ; : = -.Pi';I33 RND l.(aspi)> 


302? p:-:INT P:T ,.3 li.;"3ie i;o-:pnen 


10S AND l .-, = -■ i ' iI-30 RND vOSPi)> 


■' : RT 15 .21: "ni cht" : RT I7,21:"'Fa 


:C3 "HEN 30 TO 5000 


hren ' < " 


5290 GC TO 3400 


5025 IF S!5iPii)Pb FIND t;laspiJ>P 


5999 REM 


:. HN3 uisiPi) >pb RND vi.iSPiliPb 


6000 REM ***** SIEGEREHRU 


THEN GO TO 504O 




5030 IF ££ (asp i) >0 RND s Caspi ) (4 


6020 LET ss-s,tl 
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Wenn Sie Superpreise und eine Riesen- 
Programmauswahl haben wollen, dann. 

Ellenlange Preisliste anfordeml 
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6O30 GO SUB 290 


12; BEEP d,13: BEEP d , 19 : BEEP d 


604.0 INK 0; PRINT AT 15,21; "Sie 


, 15: BEEP ■:: . 12 EEEP d ,7 




7127 NEXT X ; RETURN 


6045 IF £5=4. THEN PRINT AT 17,21 
; " (.eider" : AT tfl 88 ';der".:AT 19,2 


7140 LET d=.a 


7145 BEEP 6,3; EEEP d,3: EEEP d. 




3 BEEP c.:-: BEE** d .7: SEEP d,7 




7150 RETURN 




7160 LET d=.3 


5O60 IF BB«1 THEN PRINT HT 17,31 


7163 FOR X=l TO 3 


O070 IF ii=2 THEN PRINT AT 17,31 


7165 BEEP d,10: BEEP d , 10 : BEEP 


d,10: BEEP c 7 : i~5P d,3: BEEP d 


,"2. Sieser" LET **»*»(»** i) 


,3: BEEP d . ?■■ SEEP d ,7 


5050 IF = S=3 THEN PRINT AT 17, £1 


7167 RETURN 


!"3. -Sieger": let etaastaspi) 


7170 RETURN 


6655 00 SUB 7240: = LhSH 0: PAPER 


7180 LET d = .S 




71B5 BEEP d,10: BEEP d . 14 . BEEP 


6063 GO TO 1075 


d.17: BEEP d,15- BEEP d , 19 : BEEP 


c.0 3'3 REM 


d,15; BEEP d.19. EEEP d , 15 BEE 


6100 REM * * Siege rer-.rijng * * 


= d,19: BEEP d,17: BEEP d,H: BE 


6110 PH-Lk d : i_L b iu =.IJ6 160 


IP d , 10 


6120 PAPER 6: PRINT AT 1.2 ' ■ 


7190 RETURN 


- ' ■ " ' '■" .fit 2,S; 

" 5 r E G E R E H R U N G ' " ; AT 


7200 EEEP .6,10: BEEP .3,15: BEE 


^ . 5 , 10 




7205' RETURN 




7220 DATA -5.-7.-9,-10 


6130 PAPER 1: INK 7: PRINT HT 7, 


7225 RESTORE 7220; FOR ■■■■, -0 TO 3; 


6. 'I- E.i-:?tr ", .:S.:hT 9,6, "2. Si 


READ a: BEEP .6,3: NEXT X; BEEP 


eger: ".: dj; AT 11,6; "3. 5ieaer: " 


l.S, -12 


;«* 


7227 RETURN 


610.0 PAPER 7; INK 2: PRINT AT 16 


7240 LET d = .3 


.6, 'Ungi. liect L iCher"; AT 17,6i"Uef 


7245 BEEP d,3: BEEP d,5: BEEP d. 


! .-::-:,- ■ - ; ■$ 


7: BEEP d,5: BEEP d,S: BEEP d,7: 


O150 PAPER 4: INK 7: PRINT AT 31 


BEEP d.S. BEEP d.2: BEEP d,3: B 


.0. ■ r-iii. is jpi 2 ■ : .i ■•- ■ .--i-HUSE 3 


EEP d,12: BEEP d,10. BEEP d,3: B 


6160 IF JN^IT-*-- THEN id TO 1 


EEP d,7: EEEP d,5; BEEP d,7: BEE 


6162 if ;Nt-ii- :■■*_■ - then :l; :-o 


P d,3 


TO 6 166 


7300 REM 


5165 FOR X=0 TO £50 STEP 10; PLQ 


7802 REM * * * DEFINITION DES 


T x,fi: DRAU 0,175 NEXT X 


6e.;fi:-un.:,sf-.ldes * * * 


5166 FOR x=0 TO 175 STEP 5 PLO~ 


7310 DIH z ;70j . DIM y (70) 


Q,X ■ DPhi. 250 0- NEXT X 


7315 RESTORE 7330 


6170 11-.- 3 PRINT ST 5.5;"D A N 


7320 FOR p=l TC 73 


K E",AT 3,9;"iUii- die he l te - : AT 
11,7; "U NT ERMALTUN G";A 


7325 READ Z (P ) : NEXT p 


7S30 DATA 11,11.11,11,11,10.9,3, 




7 . 7 .7 ,3 , 9 . 13 . 11 . 11 . 11, 11 , 11 . IS. 1 


?see'REt-i 




7010 REM * * a * * MU5IK * * * 


16 . 15 . 14 . 13 13 . 13 . 13 . 15 , 12 . 11 . 11 




.11. 11. 11. lO. 9. 3. 7. 7, 7. 6, 9, 10, 11 


7020 FOR X=l TO 3: BEEP .3,0: NE 


4, 15, 16, 17,17 




70=5 FOR X=l TO 3 


7640 re:-" ■?--£ - -. 7 ^ 


7023 BEEP . ? . 3 SEEP .3,7: BEEP 


7:;45 FljA q;i TU 70 


.3, 10 ; BEEP .5, 15 


7350 kEhD '-i iq, NEXT q 






7032 RETURN 


7060 FOR S=l TO 5: BEEP .3,3: BE 
EP .3,5. NEXT X: RETURN 




7030 LET d = .3 




7033 BEEP d,7: E^EEP d,2; BEEP d, 




7: SEEP d,S: SEEP d , 10 : BEEP d,l 


7670 RETURN 


0: SEEP d,10: BEEP d . 10 ; BEEP d. 


7y99 REM 


3: BEEP d , 10 EEEP d.12. 6EEP d. 


B000 REM * * * * * FIGUREN * 


14: BEEP d,12: BEEP d,10: BEEP d 

,3 

705S RETURN 






7100 LET d = .2 




7105 BEEP d,3: BEEP d,7: BEEP d. 




3: BEEP d,3 BEEP d 7: EEEP d,9: 




BEEP d.3 SEEP d.S: BEEP d.9: B 




EEP d ,8: BEEP d .9 




7110 RETURN 




7120 LET ds.E 




7123 FOR x=l TO 2 




7125 SEEP d,3: SEEP d,7: BEEP d. 
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Roulette gilt als vielseitiges und 
interessantes Spiel. Da es 113 
verschiedene Mdglichkeiten 
gibt, einen Chip zu setzen, ist 
das Spiel geradezu pradestiniert 
fur einen Computer. 

Das Programs wjide.=,oau;gt.::iajl. dal;.'_i,'Orsteineausfuhr- 
liche Erkla-ii :"if] dor Sp .".■lio.'gol'i one ;;;:. ls kc-nen maximal vier 
Spieler teilnehir en. Fur ieder: Spieler jnd ;1:e Sank (der Com- 
puter) wirdeinGeidbetragau''ei;iei": Kynleverwaltet. fiber den 
der Spieler frei veriugen karri Sodann <ann ein Spieler nach 
dem anderen belifihig skI/s-ti. SoJ'i- o-cmnal nicht mehrwei- 
ier wissen, kann er die HELP-Funktion aufrufen. Der Spieler 
hal fcrner die Ivioy.iohkeit. nnernal::: e ne'i Ssbo looked das 
Spiel durch die END-Funktion zu beenden; er wird dann verab- 
schiedet und uber sc-he Spioio--G'i. sliiai o.jieeklarl. Fur jeden 
Einsatz des Spie.er ; ; v.-i'd naljrgetrei.. ei'i Chip auf dem ent- 
sprechenden Pk-iiy d« ; ; itoulodeTisehosgesetzt 

HabenalleSpiclfih'-i- Firis/iti'OfjH^acb; ■■■verden noctimals 
,-ur:'i VorgJoich alio ;.;.e:';ovlei Cabs a. if don 3i iscliirn ausge- 
geben und dann die --irahg eezogone Zaiii angezeigt. Jetzt 
zGigtsich.wcrcl.-si.rncislc'Gijok oder die bast's *Geldnase«be- 
sitzt. 

Bei der nachfoigenden ■iAi.i:-;;'iihiurK]4. worden die Gewinne 
ausgegeben. Sollto omand <.oa Gluok go-tab: haben, kann er, 
falls noch Geld auf dem Konto -a:. je'Jei :'<-;i: neue Einsatze ma- 

Jeder Spieler kain mil ssnagor.d Gelc und Gluck auch die 
Banksprengen, wuriarj; Idas Spiel a) =ndo isi. Das Spiel ist fer- 
ner beendet, wenn kein Spioloi neli' Gold auf seinem Konto 
hat oder alleSpiei-r vorzeiiig a.isgonei-iodensind. 

Das Pray rami i ■ w irdo :.< gesdvieben : o-fi ■alsdie Einya 
ben vo m System iie r ;;b:;e : 'd:ig;-r ■.■veide'i SokannselbstOma 
sich einrnal »SpiolbaiiK Lu!U inn dio Naso wehen lassen. 

(Andreas r'ferli 





SQULETTE 

_____ — ... ■■■- i-__^^ 5PIELREGELN 




Pfio5E 


13 3 

4 S 61B MHNGUE 
7 S 3 


B 

S 


PP.IP 


.;';;.:0 : .]. 


IMPHIR 




A, SS2930 
▼ 3SS233 


♦ 




****£* | 




RDUL 


_ETTE * 


'.Ml 

MENU 
P PLEINE 
Z CHEUHL 
T TRPlNSU. 

PLEINE 
Q CRRRE 
ER3TEN 4 
6 TRfiNSU. 

5ECHS 
C CGLONNE 

P*fiIR 
IMPRIR 
ROUGE 
NO IF: 

PR55E 




_ -^ 


a 


"^■--^ 




PH55E 


i a b 
4 5 s 

7 S 9 


MhNGUE 


PBIR 


;.5i?is 

,^0.2': 
.-.23S4 


IMPAIR 


♦ 


. . ■ ■<■ i 
343536 


♦ 


-^X' 




_^- J -- 











•SHE- 107 



Spectrum 



* PROGRAM 



1934- 

■3339 . 33 



fte* ROULE 

1025 PRINT AT 8,0;isS;AT IS,*:"© 

ANDREAS EIFERT (1934) M 

1094 PRINT 00; PAPER 4- : INK 0: F 

LASH 1;hT 1 . 2 . "ROULETTE - BITT 



THEN GO TO 1 






:■■_! =.l 



5 -"' '-'_ 



'■}-':■'■- brigi-" 7 - ;.hT 3,25, 



SH J.J PAPER I 

RINT AT 6,aS: ■ y.j i. Le £ar,L".HT 7.2 
2; ■ il ■ -nn--.i " ■ PRINT AT 9,22; "*35 
-facher ".; hT 10,22. "Gei.Fi nr," 
1270 PRINT AT 12,25; FLfiSH 1, Pfl 
PER 7;"g";AT IS , 9 , "||B~ . PRINT AT 
13.22. "Zwei ver-"; RT 14,22; "bun 
^ni'.ST 15,22 ":-3r,:.:n '.AT _.3 , 22 



.: AT 



;flT 19,22; " 
l=: : i.O .,■ 3 i^UE j.^1 " 
1310 PRINT BRIGHT ; 
5H 1, PAPER 3, "H"; i 
RINT HT 6,22i"0ueri 

";flt : 



.■, 22; " 



;■ . 2 2 



7,22 
; AT 



".: AT 11 .22: "P Liine.i " : iiT 13,22 
11- Cache r" ; AT i.l . 22 : : g-:i.h r, - ■■ 
13-20 PRINT AT 13. 23. FLASH _ PA 

PER 7;"B".;hT 11,9;"HS";hT 12,9;" 

Hi" : PRINT AT " ~ " 
IS .22 - =!!=,,-,--: 

her"; AT 21.22; ' . . .. 

i-350 G : : 7..JB 3900 

1350 PRINT BRIGHT 
5H 1; PAPER 3: "0' , 
RINT AT 6,22; "e "= ..■ 
: AT 3.22. " 



. AT 20 .22, "'S-ii: 



10,. 



■ PRINT AT 13 .25, 
?.: U . HT 13,14, i 
-■PIMf AT 14,22, 



9,22.. 



AT 17,22, " 



; at 20,22; ; 



■' ; at 



1370 GO SUB -3900 

1400 PRINT BRISHT 1 ; AT 5,25: ELS 
SH i, PAPER 6;"H";hT 13 . S ; "S" . RT 
15,10;"g",AT 13.13. "g": PRINT fi 
T S,22:"l LasrrSs-" ; AT 7,22; "r*ih 
= von"; AT 3,22. "12 Z3 h , 4 n " ': AT 9. 
22, " ::Co lonrii . - ■ GO 5L-6 3950 
1410 GO SUB 3900 

1430 PRINT BRIGHT 1, AT 5.2S; FLA 
5H 1; PAPER 6,"H":AT IS , 1; "fl" : P 
KINT AT 6.22: "l. t>u 1 1 e nd " ; AT 7,2 
2; "1-12 C12P) " 
i* 4 -? PS? N T_ HT 9 <£ s <. Ft-ASH 1, PAP 



7; " 



OU t.Et 



;ht 



10 . 22 

24 S ISr 

1450 PRINT INK 7: BRIGHT 1; AT 13 

.25, FLASH _ PAPER 1: ■&" . AT IS. 

g;"@": PRINT AT 14. 22. -3. &ut:*r, 

d ■ AT ..5 .^2. '23-33 . l^.-j 

14O0 GO 5US 3950. GO SUE. 3900 

1500 PRINT BRIGHT 1; AT S,25, FLA 

5H 1 . PAPER 6; "H" ; AT 11 .3. "B 1 : P 

RINT AT 3,22, ■ a 5 r 3 d e " : AT 7,22:"Z 

ah ten" ; AT S .22: "2 .4 .5 etc . " 

1510 PRINT AT ,1,25. FLASH 1, PS 

PER 7; "it"; AT 11, 13 ■ 

12,22; "'jr.d-:r .:; " . AT 13,22; "Zah t 
«r. - : AT 14 ,22 : "1 .3.5 ;i .- . " 
1520 GO 3 U B 3940; G 5 U 6 " 9 O 
1560 PRINT BRIGHT 1 ; AT 5.25: FLA 
5H 1. PAPER .3 "g ' . AT 23. IS; "B" ■ 
PPI7.T ST 3 .22; "f.-.r ,. ■■ AT " 22 ""- 
h i.en" . kT 3 ,22; "7 .9 . 12 ■: t ■: " 
1570 PRINT AT :i.2S^ FLASH 1. PA 
PER 7;"|B",hT 16,3; "B": PRINT AT 
12 .22, ■ s ■:.-■■! ar ;;' , AT 13 . 22 . " Z3h '.- 
r, " : -.T 14 .22; "6 ,3.17 sir" 
1S*0 *ij Sl-E 3930 3 j 3:J& 3900 
-.610 PRINT 

aH 1: PAPER 6;"Hi";AT 7 , 13, "BT ; P 
PINT AT 6 ,22: "-:fS if ; AT 7.22: 'H-3 
-: i. i" i-l" .AT 3 ,22: " 11 - 181 " 
1320 PR-I."'- A" 11.25: =lh5H 1, PA 
PER 7, "3": at 7,3; "H" PRINT AT 1 
=:,22. "SLI-: i i-:" ; AT 13 .22. ■ HiiUis" 
, HT 14 .22: " (19 - 36 'i " 
1330 Gu SUB ;340 ;-Q =,ijr3 3250' G 
u SUB 3160 

1650 print '""Sewinn-t die null. 



Basic-Lisiing ..Roulette" 



■ THEN BO TO 23 
iR S: BORDERS: 



v^mfe. 



Spectrum 



1300 


PRINT •"■Geba die flnzahl de 


i- Sp 


»lif ijn.dii iiUT.sciei.cn ,i r, ,. 






IS 10 


IF INK£Y*="" THEN GO TO 181 


a 




15:20 


IF INKEYS:"!" OR INKEY$>"4" 
00 TO 1810 


THE 


16 SO 


LET spi=UAL INKEY*: BEEP .1 


,1S 




IS. 1-0 


PRINT ' '-Es wurden ";spi; " 






ISIS 


DIM h ispi ,5i : DIM niiipi.10 




M 11 (51 . DIM a tspi) 


1345 


PRINT '■.::■.£ 23558,8 




FOR i=l TO Spi 


1360 


INPUT i'-fis:.-: .;en Nasisn de; 


"j ' i j 


. Spielers, ein ; ■'} : LINE n 


1570 


PRINT "5pie Ler "; i ; " : ",r.S ( 


i): LET rt til =5080; LET aii)=0 


1889 


NEXT i: LET n (5' =1033030 




GO SUB 3260 




CLS : GO 5U8 3160: GO SUB 3 


200- 


IF r,UU=0 TMEN DIM gtspi,2, 


1990 


DIM c fspi ,15,3Si ■ DIM dtSPi 




) : C-IH < it i 1 1-3 j : DIM e ii 




: DIM .:«il-3.15i DIM KtSPii 


: DI 


0$I3P1 .' MM C * (Spi » : DIM 


1S*s 


i) ; DIM fdiHi DIM J$(5Pi 


1992 


RESTORE lu9S: FOR i =1 TO 13 


: RE 


D Cf u j : NEXT i 


15-3? 


DhTh 'ROUGE ■ . "NO IP" . "IMPAIR 




HP" , "MHNQliE ■ . "P955E '.-.i P' 




M" ,-ia d ■ . " : :.':iL::i-.Mr- ■ 


COLO 


ML ■ : "3. CCLCiNE" ■ 'ERSTEN 4 


IRHLEN" 


2000 


O-i 5 Lie 33-30: FOR i=l TO spi 


2004 


LET ■■ .1 ■ 1 . io.i :=&. l:" , £ i : ' - 




LET p* ii j = "0" . LET q$ i L J ="0 


■ LET r 




FliR "I =1 TO S: LET f d , 1 , n J = 


1. LET f (i . l . n+Si =£: NEXT n 


5030 


IF nuUil THEN FOP r,-i ~ r, :■. 


A LE" 


f <i ,3,n1 =t,U,ni : NEXT n 




NEXT i 


2050 


IF n L5) <=0 THEN GQ TO 3450 




LET rnd=INT (RND*37i 




IF :-!-:d=il 'MEN LET" m.i 1. t =1 F 




=1 TO SPi: LET 6(1,11=35: LE 




, Si =1: NEXT i 


2 3 GO 


Gu 5...B 3260: FOR i =1 TO -Pi 




IF a U i -I -MEN GO TO 2700 




BORDER 4. PhPER 4 




GO 5U5 3633: GO SOB 3200 




PRINT RT 2.24. PhPER 3: BRI 




, ■ MEN." . AT 3 22 PHPER' 5; "P 




■i .2=:: ■ I 1 ' . HT 5.22; 'T ■ ; 97 7 ,2 




; ST 8.22; '0";flT 3 , 22; "6" ; RT 




PRINT hT 3,24. "PLEIME"; hT 4 




C -,E.H_ -T 5 .24; "TkhMSU. " ; fl 




4, ■ FLEI'JE 1 ; PT 7 ,24; "ChRRE" ; 


AT 9 


24 ; "6R3 T F_r-! J. . 9T 9 94, — PPM 




m'T i£i .24. ■ 3E.GH5 ' . HT 1J 24; " 




NE" 




PRINT P.T 13,22; CHR5; 143; CHR 


$ 14 


'■ : 2HR$ .43 CHR* .30 


CHRJ 


.45. CIRi 1E1. -- l.i .92.; "PAIR 


"; HT 


15 22. "IMPAIR" -iT 16 22. ■9:0 


UGE" 


H" 1 " 17 ,22. "MO IP" . hT IS .22: "M 


ANOUE" . h ■ 




IF dur=l OP bJ="HELP" THEN 




2500 


235 3 


IF t>$ = "lHELP" THEN GO TO 25 


sa 
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235S PRINT 80; FLASH 1; PfiPER 7; 


ST 0,0, 


GEEE BEI DSP EINGmGE 07N 


CQDE- 


EUCi-SiTlEEN i.HELLBLRU) OD 


ER DfiS 


39ME .'CfiT ihE iEPi FIN . 




MfT ne'r^PflPER 6;flT 0,0; "5 




R SPIELER KEINEN EIN- 5 


ATI Man 


MHCHEW UOLLEN, EINFRCH' 


ENTER 




; PAU3E 




26 10 IN 


UT PhPER 7 I RT 2,0;"ERKLfi 


ERUNG=HELP 5PIELENDE=END" ; AT 


1,0; ("K 


NTO: '■ :n Ci j 1 , RT 1, IS . "UEI 


TER = ' ENTER" " ; RT 0,0: "FIN SHI I : " . 


LINE h* 




2515 IF 


hts"" THEN LET b*=" " : G 


TO 2700 


2520 IF 


h$ = "END■ , THEN GO TO 4^10 


2530 IF 


h*="HELP" THEN LET bj=hj 


: GO TO 




2540 IF 


h*f TO 1J>CHRJ 57 OR h$i 


TO lj <CHRJ 4:3 THEN GO SUE: 3500: 


GO TO 2510 


2545 IF 


URL ht-,10 OP URL h$>10O0 

PP;-.' Siii. PSPEP: ""; R- 1 . ?J 


00 THEN 


; "Betra 


;;n..3: - - ...':ov;gv ■- 


bfJRT 0,0: : Ffi, :.r.:JFP 5FT.PHG!"; P 


RUSE 300- GO TO 2510 


254S IF 


riLil-UPL h*-i0 THEN PRINT 


no. PRPER 7 . ■ fM.. GIE-yt >|E" ; -: GE-L 


fiUS . HL3 GU HUF l:-EINE:-1 r'.ONTn M 


95T ' -91.166 300- 30 TO 2510 


2547 IF 


URL hi-INT (URL h*J ■; :-0 T 


HEN PRINT no: PAPER 7;" GE6E NU 


R GRNZE 


SIMSPETZE EIN! " : PAUSE 




TO 2510 


2E50 LET n t ■ ■ : 




+ URL hS: LET K U ) =1 


25S0 INPUT PPPEP: 7 ; RT 2,0;"EPKLR 


EPung=:help ;.p ■e...::-:L.;_e.-._. ■ ht 


1,0 ■ '. "KOUTC . "; n tin ; RT 0,0; C'EIN 




$; " CHANCE: "! ; LINE at 


2555' IF 


a$="END" THEN GO TO 4210 


2570 IF 


5*-"HELF"' THEN LET t>* = "l 


"+a(: GO TO 1140 


25 75 IF 


at = "12P" THEN GO ro 4250. 


2550 IF 


Ei LS-. i£M" THE'- GO TO 4260 


2535 IF 


35= 12D" THEN GO TO 4:9.-0 


2590 IF 



2595 IF 


a( = ■ , PRIR' , THEN SO TO 42B 


at-"IMPRIR" THEN GO TO 4- 


290 




25O0 IF 


aS="POUGE" THEN GO TO 43 


2505 IF 



2610 IF 


=$="NOIR" THEN GO TO 431 


aS="MfiNOUE" THEN GO TO 4 


2615 IF 


aU^'PReSE" THEN GO TO 43 


2620 IF 


3S="C" THEN GO TO 4000 


2525 IF 


■a $:= M S" THEN G3 TO -040 


2630 IF 


35 = "f)" t.-;e-: gq to 4070 


2635 IF 


.= $- :, :j■■ T-.EH GO TO 4090 


2640 IF 


**--■ ".-.EM G j TO 4120 


2545 IF 


.i^ = ,, :r ■ ~ -eh c-o to 4150 


2&S0 IF 


a$="P" THEN GO TO 4130 


2655 GO 


SUB 3500: GO TO 2550 


2700 WE 


T i 


2701 IF 


r fid <>0 THEN LET nL.U=0 


£705 LEI 




2707 IF 


alil-O'TrEN SC TO 2713 


£709 NE 


T i : GO SUB 3160: GO SUB 


3200: 




2715 OL 


: yO SUB 3160. GO SUB 3 


200: PR 


HT AT 0,£2. ,, G6iET2i E" : R-- 



i3Sfe. 109 



Spectrum 



nt"tIH=HE":E ULPlJEN C-EI'IACHT 

FOR » = 1 TO spi 

IF a fi) =1 OP K (i! ol THEN G 



PER 3+i ;CHR4 



let d*se*(.q 

' NEXT n: Rl 

. FOR h=0 Ti 
READ IDS; 



0- OR K _ 
ND qS Hi ="a" 
" Sfi h=4 AND 



EEEP .S5. -4: BEEP .01.0: EEEP . 
1,-lE: PAUSE 10 

3030 EEEP .005.15: BEEP .31,0: 6 
EEP .305,-36. PAUSE 6. BEEP .1.- 
30: BEEP .01,-43: BEEP .1,4.: BEE 



3100 READ 
3110 READ 
3120 NE'T 



314-1 DATA 
6 .252 .254 , 
3142 DATA 



314.4 DATA 
,0 

3145 DATA 



3145 DATA 



3147 DATA 



3143 DATA 
126, 126.0 

3149 DP.TR 
.65, 129 

3150 DATA 
56,16,0 

3151 DATA 



3140: FOR I 

FOR r=0 T( 
POKE IJ5R pi 



9 


3 


JEXT n 
1,3,7,15,31,63,127 

123,192,224,240,24 

255,127,63,31,15,7 

255 , 254 , 252 , 248 , 24 

0,56,35,56 .32,0,0, 


" 


16 j 56, 124,254,124, 



31 



__ . :ETURN 
70 PLOT S.li 
- DRAU 0. 
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DRAU O . 16: DRAU 
DRAU -3,0: DRAU 

■-■•■■ PLOT 24-. 150 C-RFiL- 0.16. C 
RAU 8,0: DRAU 0.-16 DRAU -3,0 
3172 PLOT 4-0.175: DRAU 0,-15: DR 
FfU 3,0: DRAU 0,16: -LOT 56,175: 
DR-.u 0.-15 :,PA!.,i 3,0: PLOT 79,16 
0: DRAU -3,3 DRAU 0.15. DRAU 3, 
0: PLOT "=; . 158 DRftU 4,0 
3175 PLOT 35.175. DRAU 5.0: PLOT 

92,17=:: C'RA.-l 0,-15: PLOT 104,17 



DRAU 0.15: DRAU 3,0- PLOT 120,16 

■f . ORni.l 4,0: RETURN 

3210 INK ti PLDT 60.156. DRAU 66 

.0: DRAU 56. -IS- DPAU 0.-120: DR 

HU -56. -3. DRAU -56.0: DRAU -56, 

8. DRHLI ■ 120 DRAU 56,16 

3220 DRAU 0,-14-1. PLOT 30,140: D 

RAW 0,-125. PLOT 96.140. DRAU O. 

-123: PLOT Hi. 156: Di:AU i.-Ili 

PLOT 23.36 DRAU -10 -LOT id 
,36: DRRl,: 0.-21- PLOT 135,36: DR 
AU 0,-21: PLOT 152,36: DRAU 0,-1 



PLOT 4,36- DRAU 



110 im& 



Spectrum 



3240 


PRINT INK - 


' 


^ER 


2; BRIGH 


T 1; AT 5,3; "1";BT s. 




3";hT 6, 


10; " 
3, 1 

"15" 


; "12"; at 9 

AT 10,1S.; " 






HT 13 ', §1 


RT_1 


, 12, "21"^A' 






T 3 14.°12^ 


"30^ 


St is, ib;" 








RT 1 


. 12. "3iV ; R" 






HR$ 144; 


CHRS 


145;AT 15,17;CI 


46j CHRS 












325© 


PRINT AT 3 


8; -% 


','.67 5 ' 




6,3; "*"£flT 






; AT 7 1? 10 
3"7aT IS 




1S*3J CHR$ 




3HR$ 147 






■] ■ "1- 


h = ^E" . h- 6 . :. 




'.I.' 1 1. ■ i ■ . 1 . 


=RI 


";AT 10. 


15; " 






J--.3 IJ.8.CHR 


J 14 


;CHR$ 143, 


nl-:S 


IS© 


CHR$ 143 


;CHRS 151; RT 13 


-l 5 : ■: 


J : * 


145; CHR* 




CHR* 146, C 






HR* 14S; 


CHRS 


i;.i. returo 










PRINT B©; hT 1 ,3 


"DRUEC- ■ 


L-FNTEIME TRSTE" 


-■pij 


5E 


: BEEP . 


1, 12 


CL5 : RETL 








332© 


PRINT RT 








&ANK 


~~. fl y , 










LET UJaeBi F 










IF sii)«i 1 

PRINT PflPEI 






EN RETUR 
PAPER 5.; 


INK 






5PIEL I 


RBEI 








; " NEUES 


SPIEL i j/n) T 










IF INKEV*= 




iEN 


BEEP .1, 




TO 1760 








3420 


IF »JK£Y*.i 




THE 




3440 


BEEP .1,12 


NEW 






3455 


FLASH 1: B 


RLE" 




PRPER 0: 








"EP 


3.6: BEE 
ORALJ 127 

: 'PLOT 1 


R k-' c 


£ EINGAEE! 


■ PR 


JSE 


203 : RET 


354-0 


OLS : GO SI 


B 31 


30 






PRINT AT 




= LA 


H 1; PAP 


ER 4. 


nlli) , FLA; 


.-;. . 


PAPER 3+i,"" 


i"; ChRs iisi+i i 




RE 


URN 


36 30 


PRINT RT y. 




=!:-■?: 




5 il 


1 + i > : LET 


"t i , 1 




y : LET 9 


3690 


d :■ =x : LET 
GO TO 2510 






URL ht 




PRINT AT K 




4PE 






1+i) : LET ) 


= X-4 


LET y 


LET 
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THEN LET 
THEN LET 











il 
































-1 






































4 








'J = 1 4 j 5 












































































































rf " 


1=3 THE 


; LET 




,2 


d 


= 







ATS 

0, "K 



PPPER 7 : AT 3 ,0. ■ "Ell-lb 

CHANCE: _ C a r re 1 ' ; HT I, 

uNTij : " ; ri ( \ .' : hT *. , © . " K L* 1 ni i> 



Sfe 111 



Spectrum 



4093 IF L. ._ 

MPS 57 THEN J.Q Tij 4-J.li 

4-s-^i for :■ =■; t: :.? step ■; - 

4095 IF b4=5TR$ n THEN GO TO 41 



b*=— OR d* = "" THEN GO 

ba 111 ;CHRJ 48 OR bjili 

R .'-! ■■ J- !__:'- :1 s fj : * T , r-. 1 0S J * - 

=. = vPL_ J bS: LET J d=UflL d 



HEN LET 

THEN LE 
HEN LET 
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4174 


NEXT n 




LET iaXi LET h=y: GO SUS 37 




-ET x=.j: LET y=h-l;- GO SUB 3 


70Q: 


GO TO 2510 




LET v=, + l LET j=!<: LET h =y 




o'J5 ;70O LET <=j-l. LET 'j = 




SMI:. 3 _ 0i' GO "■",;, .lEHO 


iiss 


Ir-.r-ijT PhPE-' 7:hT 6,3; ("EINS 


HTZ: 


. i-,s, ■ chhm:; p i.e.nf ■ , ht i 








I fin, "J ; LINE bS 




IF l.J:: ■ THEN GO ■; .120':- 


41S7 


IF bta.l .;iJhSi 4.5 ._!».■ b*(U>C 


HRS 


37 THEN GO TO 4209 


4 135 


LET b = 'JHL b.« 


4139 


IF b<0 OR b;-36 THEN GO TO 4 






4130 


IF b=0 THEN LET e i i , 3) ='JfiL 


r,*: LET a H ,4i =3: LET 4 ( i ,51 =12: 


PRINT AT 3,12.: PhPER 5 + i;CHR{ ( 




i . GO TO 2510 


4192 


IF md = b THEN LET o*ii)="l" 


: LET .: <i , 1 . bj =35: LET c « i , 2 , b 1 = 


I . LET ■: :; . .;; . f ='.'HL hS 


419S 


pe:i.T-:-p- .-.me fqs r ,=i to 34 


STEP 3: READ * 


4197 


IF n=b THEN LET 'J = 3 : GO TO 


4201 


4198 


IF n+l = b THEN LET >J=11: GO 






IF n-f2=b THEN LET u=13: GO 


TO 4201 


4200 


NEXT n 


J-20i 


GO TO 3700 


4200 


GO SUB 3500: GO TO 4135 


4215 


■:i_;. . co =. je ;ioo. -pint ht 


5,0 


PhPER 3. ■■bPitLEMCE : ..u_.N ■ . r, 


*■«] 








4325 


:f"-"i 5CO0 THEN PRINT "'0 








;;-': ' H". ' GO TO 4235" 




IF rid i =F0O3 THEN PRINT '"D 








ir Lo ran . ,: "GO TG 4235" 


4230 


PRINT "D'j hast. i.oi.ier ";S0 


00 -n 
4235 


Ot"„??."^r'£i*'i;;.-»i 


4240 


GO SUB 32SQ: GO TO 2700 


4250 


IF rndtlS THEN LET fCi.2j7) 


4255 


IF i=l OR i =2 THEN LET nisi i 


SO TO 4257 


4256 


LET j=i+12 




LET >: = 1S: LET d=7: GO TO 36 


70 _ 






IF rrtd>12 AND rndOS THEN L 


ET F 


i ,a,Si =1 


4265 


IF i=l OR i =2 THEN LET y=i+ 




TO 4267 




LET y,=i + 14 


*| 67 


LET X=1S: LET d =3 : GO TO 36 


4270 


IF rnd:24 THEN LET f(i»fi,.BJ 


4275 


IF i=l OR i =2 THEN LET y=i + 




TO 4277 




LET y=i+16 


*=j77 


LET K=I8: LET d =9 ; GO TO 35 




IF rr, d=0 THEN GO TO 4233 




IF ,,T,d 2-INT £rnd/2J)=0 TH 


en""le 






LET d=i' IF nUUoe RND f(i 




. .0 "HIM GO TO 4600 


Ik: 


LET Jt = ll' LET y=i: GO TO 38 




IF rnd=fl THEN GO TO 4292 



112 iMffe 



Spectrum 



4-291 


IF If 


d/2-INT Lfnd/2 


x>a t 


HEM LET F L 


,2,31 






4292 


LET d 


3 . IF 


nut L -; > a 


aWQ f i i 


,3,3 
4293 


■:. .> T 
LET X 


1EN GO 


tli igae 


GO TO 


11: LET gsi +14 












IF m 


=0 THEN 5 


4302 


4301 


IF m 


= 1 OR 


rnd ri OF, 


rnd=£ 




d=7 OR rnd=9 OR rr.d = 


12 OR i- 


nd = 14 OR ■ 


d-, 16 ;>R rnd = 15 


OR rnd 




R r n d 


=21 or 


mo =23 C 


R rnd=S 


5 OP 


mda27 OP r 


■J =3 3 OR 


rnd=32 


OP r 
4305 


d=34 OR rnd 


36 THEN 


LET f ii 


LET d 


= 1: IF 


nul L i ><S 


FIND F fi 


, 3 . i 


i >0 THEN "■ 


TC 460-3 












GO TO 










4312 




















= 11 OR 










7 OR rn 










rnd =31 










LET f ( 










TO 36 










4322 


4321 


IF rn 


<19 T 


HEN LET f 


fi ,2,5) 


LET d 


zS: IF 


nuuoe 


AND f < i 


■ 3Ti 


< :- a t 


HEN GO 


TO iifC 






LET X 


= 7; LET y= ■ 


GO TO 


:-:i=."'t! 










4330 


IF rn 


= TH 


"N GO TO 




4331 
= 1 


IF rn 


•13 T 


HEN LET f 


ii ,2,5) 


LET d 


=6 : IF 


nuUoB 


HMD f f i 




o a T 




T.:. 4 60 3 




4333 


LET X 


s?s LET 9= 


TO 367 













45 05 


PRINT 


'"Di-e 






a 




a Em 






ngez 


9 £ n , _ 


s fHu; 






Imp a 




r,Rou 


e. Paste 




n^ue 










4510 


PRINT 


" " in 




ChS Fae 






£!-3P; 


Lar dan" 




Eins 






fc a a i- L .a n g 


en 1. 1 ) 




-; a I" S 


n - j a * 






its 5Pia 




sin i.-Jaf. 


stehsn 






■"'"UeUti: 


a Lung u 


OSch 


est c> 




bsn ? fl 


od^f 2 


4543 


IF INKEY8=" 


" THEN BEEP ,1, 


12; FOR Fi = 


L TO 6 


LET F i i 


,2,ni =. 


S : LET f t i 




= : LE" 1 " 


r 1 1 , 2 , 1 
PRINT 




NEXT 




3US 3630 


PiT 


, IS; ■' 




" ; n (i J ; hT 3,3, 


PAPER 6; "C 


ii".r.C> 


; HT 3 , 15 


"GEUIN 




GO T :. 








4545 


IF IN 


.EV $ -; ; 


9" THEN 


GO TO 4 


530 










4S70 


BEEP 


1 ., 12 : 


FOP. n=i 




4S5S3 


LET h ii ,n) 


- f ( i , 3 , n J 




4598 


NEXT 


; GO TO 2975 




4605 


='R"i;t 


CO, PAPER 7; FLR5H 1; 












" DH 










Pi-Uoi 


200: PAUSE :- ■ 


'50 TO 2513 






4639 


DhTR 5 ,6,7,3,9,10, 11 


. 12, 13, 


14, 1 


,16 








4 900 


iSyt 




te" LINE 


1000 


4910 


U :Pl c 








4920 


5T0P 









flpiratK-jm nir R; d Dimr.'risi,-: 
Unladen der Gewinn-hrjUtorer 
AiJl'ido: UiiriK glsioh Null 



;S I insai7i;s rrv.1 HflJ- ..jr d EUIl- 
il LI U-.' i [.:■: i.'i i i . r it i .:,.. Hk;iiligkfi.| 
rr Chance rrl:H-I.P-i.MiFNI> 



5 


2820 


Toiale Chlp-AdSgab 


rind Ausqabe de 








2B-2975 


Gewinnausgabe mit 


Abfrage der Spiel 


DO-3030 


up Kugelrollen 




jO 


3155 


upUDG 

up (iberecrirrft 










nc Abfrage -,ac;h 






rem Spiel 
























cHerungderKoordi 


aten In Feld g() u 



Programmstruklur 



:nr (3 s ■,',■!.■ i -i :;■.:- f'ChnL.r-g (hbr-.cn Cnar.i 
:i ii' C-iipsetisn (hohsre Chriicsni 
or Nullregel 



Basic-Listing » Roulette^ (Schlufi] 



Variablenliste 
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Dieses Programm fur den 48-KByte- 
Spectrum kann nicht Schach spielen. 
Aber es ist eine auBerst komfortable 
Hilfe fur diejenigen Schachfreunde, 
die gerne die in Zeitschriften oder Zei- 
tungen abgedruckten Partien nach- 
spielen. Ich habe es auf einem norma- 
len Schachbrett versucht, habe auch 
die angegebenen Varianten durchge- 
spielt, muBte dann alierdings feststel- 
len, daB ich die urspriingliche Stel- 
lung vor der Variante vergessen hatte. 

Dieses Programm erlaubt es 

— bis zu 64 Zijge : 128 Halbzuge) in austuhrlicher Notation 
Oder Kurznotaten o;n.i.:eeben. zu korriyii^en undzu listen. 

— eine Ausgaragsslel'i.rig auzubauen, 

— eine Parlie nachzuspiolen. Hier wire) Halbzug fur Halbzug 
der gesamte Spielverlauf nachvollzogen (aul einem Bild- 
schirmbrett). Der' Ve: lauf kann ante: bi ochon werden, um eine 
Variante ein/uyeben. AnschlieBand kann der urspriingliche 
Zustand auf dem Bretl wieder hor;;es'HII werden. Das Brett 
kann urngedreb.r oa:-. ani dem Druo:<or ai.u.gegeben werden. 

— eine eingetippte Parlie irn'sani Auxganussiellung und Titel 
aut Band zu speicnorn oder vor: Band zu lader!. 

Progra mm besch rei bu ng 

Nach dem Lader; ei suhernt ei.' B:ld aur ;it;'n Schirm. 1st die- 
Sea Titelbild fcrr.H aulgebau:. wordo.-i di<= Graphics aus den 
DATA-Zeilen colosen una die ■.•.■■iditigstor, v'ariablen definiert. 



HE] 
H 



Dunn erschc-.iit das Haoptnoni;. Dnackr-n S.e auf 1 : dann kom- 
men Sie in das Mono von ^'ugei: igai>a ;. S;e kdrmen jetzt wah- 
len zwischen au-sf.'ihrl.r;.-icr Notation fzum Boispiel b1 bis c3| 
oderKurznotationiScSj.Bfl heider.'-fclalioror istdieEingabe 
der Rocbaden identisch (0-0 = kurz, 0-0-0 = lang). Die aus- 
fiihrliche Notation bedart keiner weiteren L-'klarung. die haufi- 
ger verwendelo Ki.ii znotatioi i js.-cloc! i bat es in sich 

Sie "icnnen alie= genauso eingeben. w;e es in Ihrer Zeit- 
schrifl oder Zeitung steht. Also SI3 (Springer nach f3), b4 
(Bauer nach b4) be (Bauer au' bschiici -ii:i:jr auf c). Weiter- 
hin TadS (Turm. der aul Spalle ;, sk:hl nach 08), S8d7 (Sprin- 
ger, derauf ZeileS steht, nach d7). FUr die Bezeichn Ling der 
ziehenden Figur njsseaGroBbi.onstaber verwendet werden 
(kann beim Bauern entfallen, muf! aber nichl). Also; Springer 
= S, Kfjnig = K und so weiter. Bei einem schtagenden Doppel- 
bauern muis gen: i: .■■ ;■ el gl v oon. um welchen es sich 
handelt. Es miilile dan.n alsa ,;l.'ii Beispiel r.eiBen: b3c (der 
Bauer auf b3 schlagt Firjur auf r;4}. Schlagt ein Bauer en pas- 
sant, so wird das Programm alioin damn ierlig. Erreicht ein 
Bai.if;.' die zeila 1 aeziehi.ngswoiso ?.. dann wird er automa- 
tisch In eine Darns u'ligewjndelt. es sei denn, der Zug erhSIt 
als viertes Zeichen einen Guchsraben. der eine andere Figur 
bezeichnet: b8 S (Bauer nach b8 mit Umwandlung in einen 
Springer). 

Jeder Habzug w-i d n einem soohs /eiehei i iangen Teilstring 
gespeichert. Daduroh wird die Eingnae jor: Kommentarzei- 
cfien moulicb: Be; tier Kurz novation frjhoalons vom uierlen 
Zeichen an (Sd4+" heilit: Springer schlagt d4, schach, ein 
fragwiirdiger Zugj. bei der au.=-,luhii;'.'ier Notation zwischen 
dca boidon Feldem urn: danach |b5xd4- heiBt: b5 schlagt 
d4, schach}. Die INPUT I iojline. die die /age emgegennimmt. 
erwartet stets zwei Halbzuge. Man gibt also zuerst den Zug 
von weifi ein, driickl ENTER, und dann springt der Cursor et- 
was nach rechts und cor Zug /en Sonvvarz kann eingegeben 
werden. 

Mochte man dift Friga:;? baenden. mul3 man nur auf ENTER 
driicken (zweimal. worn gerade dei ■.veiije zug dran war), und 
man gelangt in ein Mcnii. das da:; Korngieren eines Halbzu- 
ges, die Riickkehr zi:n h:ai;pmoni.; ods: das Andern der viel- 
leichi falsch einoooobonon Eolation o.'r-io;.;licllt. Wenn Sie f 
und ENTER drQcken, dann kbnnen Sie korrigieren und an- 
schiioBond dio Fin;:abe fortsetzen. Bei n und ENTER wlrd die 
Notion goardert darn i-;ornen Sie iurtlairoa. DruckenSies 
und ENTER (fur SchluB), dann wird ein Syntax-Test durchge- 
ftjhrt, bei dem die Zuue aul ilire kcirekte SoiiroiPwoise iiin 
uberpriift werden Wrdoin heiiler enldeckt. verlangt das Pro- 
gramm die sofortigii-Korrektiir Isl der Synlax-ieslabgeschlos- 
sen. e;scheint iviedor das Haaplmenii. Durcb Driicken auf 2 
konnen die Ziige — das Programm tragi: Drucker? [j/n] — auf- 
gelistet werden. Mit 3 kommer Sic. ■,«/ona Sic walirend des 
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. .Tebke 
thurgruer str. 9 

1000 BERLIN 51 
TEL: (033) 4955689 



5 DEF FN I 
( (F+E + li '31 1 

10 REM 

ib : li-i 



(F+E + l) /2-INT 



40 DIM I 

50 DIM I _.. 

60 DIM F$(. 

SB DIM TJ(l 



LET ft**"" 
LET H*V'" 
LET ZNR^l 
: LET St = "" 
ET FELD=1; LET 0RI = 1 
3B LET N0T=2: LET FLAG=1 
90 RETU RN 
1000 REM liMlDJ 

1020 CLS 7IRK 5: PLOT 16. 
ftU 233,3: DRRU 0,143: ORAU 
0: DRRU 0, -143: INK 
10S5 PRINT PAPER 5j RT 1,10 
I- SuHSCH LM";RT 2,10 

m editor m" 
t8m1pp.intt?t 6,5, 

tstutpkint at 8,5; "1 zuege einge 

BEN ";BT 9,6;"2 ZUEGE flUFLIST 

EN...";RT 13.5:"3 ZUG KORRIGIERE 

N...";RT 11.5, "4 STELLUNG P.UFBAU 

EN." 

10E0 PRINT AT 12,6; "5 EINGAEE FO 

RT5ETZEN";RT 13,5; "S PRRTIE NRCH 

5PIELEN-.RT 14,6; ''7 AUF BAND SPE 

ICHERN";flT 15,6; "8 UOM 8HND LRDE 



1110 IF It="6' 
1120 IF I*="3' 
3350: GO TO : 

1130 if i*="a' 

1140 IF I*- 1 '?' 
114-5 IF Xf«"B' 
1150 IF lj="3' 

DATA B*l): ' L0RD'"5*'"Dflf R Z*7T . _ 

T NOT=URL Z$<65,2,1); LET ZNR.UR 

L zttss, a,a TO i ; FOR F=l TO 8: 



THEN 30 TO 1300 

THEN GO TO 1160 

THEN GO TO SiSS 

THEN CLS 



NEXT 



INE 



THEN 



LET TS(P*S-7 TG 

F: GO TO 1000 

1163 CLS i INPUT "DftTEINAME 

LINE St:" TITEL-; ";CHR* 13; 

TS: FOR F=l TO 8: LET B*l4,rj=i 
ti8*F-7 TO ) : NEXT F: IF LEN St* 
3 OR LEN SlilB THEN GO TO 1160 
1170 LET 21(65,2,1) = 5TRS NOT: LE 
T Z*i5S,2,2 TO ) =5TR* ZNR : SAUE 
S* DATA BfO : Sfi'JE 5S DflTR ZtO 
1180 VERIFY S* DATR 8(E): UERIFV 

S* DATR ZJ-;:< . GO TO 1000 
1230 CLS : INPUT '■DRUCKER7 (J/N) 

"; LINE PS; : PRINT Tt": IF P* = 
"J 1, OR P»**J" ""-" 
1210 GO T O 23 

2000 REM [ 

20E3 GO Si 
2030 CL5 

2043 PR IN" 
BITTE ERST DEN ZUG WON UEIS5, 
UNO DP.NN DEN GEGENZUG UQN 
SCHURRZ EINGEBEN. 
ES HRBEN BIS ZU 64 ZUEGE PLflTZ. 

2060 PRINT ' 
3IE HfiBEN ZUEI MOEGLICMKEITEN , 
EINEN ZUG EINZUGEBEN. 

1. FELD-FELD Z.B. S6-47+ 

2 . KURZNOTAT ION Z . B . b3 ! 
ODER K37 ODER Thdl ODER cd" 



2080 PRINT ' 

kurze rochrde 
lrnge rochrde 
:. . : : :■ -■ - : : -t 
ins menu kommen 5ie mit enter' 

2110 PRINT ' 

--BITTE UAEHLEN 5IE 1 ODER 
2120 LET I* = I.-.JKEY3 
214-0 IF I*;"l" OR It>"2" TH 

TO 2123 
3160 LET NOT=YAL 
2165 CLS : PRINT 



2173 



73 IF ZNR>64 THEN GO TO 130i 
ai75 LET MJ = "" 
3130 GO SUB 2293 



2230 IF ZtiZNR.llaM* OR Zt(ZNR,2 
I =M* THEN GO TO 3003 
aa20_LET_ZNR=ZNR+l: IF ZNR;=64 T 

:ne 

VJ • i-Hft - - «-, i$ ( 

1, Zs >ZNR,2i ; : RETURN 



2B2L 

HEN GO TO 2: 

2290 INPUT (ZNR) ; 
ZS <ZNR,1) ;TAB 11 



2303 REM 

2320 CL5 

2330 LET MS 

2340 IF PEE 

Sea: CLS 

:350 LET N*=Z*(F, 1) 



2360 IF N* = M* THEN GO TO 2430 







N* = M 


THF 
























2460 


NEXT F 


" OR 


TI- 




THEN 
























IS: LET 


->« = 
































TF 


















































2550 


\f- 


NJ(i: 


s"B" 


THE 


1 LET NI 


N« 
































































V"J 
























nj- : 








, 1 1 i ■: 





2590 IF CNJ (1) ="L ,, OR NS 
AMD N*i3) >"S" THEN GO Tu dw 

■siiiG :-::= :-:v; ■."::■ =--y ,v-io :■<% ..Si 

- RND N« (4) >="1" AND NJ (41 1= 
HND i i.\i i.S) ,--"3" SND NS ''£) '■■ = 

OR (N$ L2) >-" 1 " PNn NtlPI : ■=■':■ 

THEN RETURN 



._ . RETU RN 
2300 REM |~~ 
2920 INPUT 
M*i ; " 
255(3 ~:£M -'i 
2363 IF (' 
R NSI21 <■ 

I t-a" OR NS i4i ■•-■3" OR N* C6J * J. 
OR Nt(5i>"8" THEN INPUT "FflLSCHE 

Elf-iGHSE: "; (N() ; " : " ; LINE N«: 
■20 '0 =;y&3 



:-Z-2» INPUT "HEHLER B< 
kTICn i"; (NOT) i ") "; I 
~3SC' IF It = "S- OR I*-' 

TO 2333 
Listing des Schach-Eclitors 
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3051 IF I*=."N" OR I*="n" THEN LE 
T NOT- (N0T=1! +1: GO TO 21S0 

3055 IF IJ="F" OR !$ = '■?" THEN GO 
S-J3 JG-iO: GO TO 2180 

3056 GO TO 3B£0 
3063 INPUT 

(U/S) M ; line r$ 

3070 LET E = INT BBS E: IF E(l OR 

Ev70 THEM GO TO 3050 

3050 INPUT (E) ; " . " ; CZ» IE . ( I« O " 

U" AND 1*<>"B"5 +1) J ;" ZUG? "; L 

INE NS 

3090 00 SUB 2500 

3100 LET ZS (E . IHiry" AND I JO" 

ii'"; t!) -is PRINT TAB 18JNS 

31 IS RETU RN 

3500 REM 1 

3510 CLS 

GO SUB lj ^£3 . i... .' ;■ :_, B 39*fl « 
3515 PRINT HT 4j4.; "fiHiagn"' '" I 

, f ;f,:-..V5Pu-. ■ - BOE5CHEN HURUl 

«■"''" SCHURRZ: 5 L5ERFELD : 

" LEERTH5TE Z.B. e IT ODI 

a2Ls" 
3520 INPUT "FELD,FIGUR,FfiP.BE; 

LINE FS 
SS.j-O IF F* = "L " OR Fie" I 
HEN FOR F = l TO S: LET B*C1,F)= 
" : NEXT F: GO SUB 3900: 
TO 3520 

35*0 IF FJ="fl " OR F$ = "a 
HEN GO 5'JB '5330: GO SUB 3900: i 

TO 3520 
3560 IF FJ="Z " OR F* = "z 
HEM RETURN 



FiiL. 

"5" OR Ft C- 
' F* L3) a"K" 



■-'■ OR =' i3) =■ ■: 
EN GO SUB 400b 

:■ =: ■■: :■. ■:■ ■■ ■ .■ : s - ; 

3505 LET fiS=!?HR$ ™+CHR| 5T LET 
H$=CHR$ 17 + CHRS 3; LET I**' 1 ": 
LET I(=H(+It+Ht+It: LET IS=IJ+IJ 
*I*+ljUli 

3310 PRINT AT 3,15;: FOR F=2 TO 
9: LET G=lF/2-INT (F.'2>)*2: FOR 
H=l TO 2: PRINT TAB 15;I«CG*5+CG 
=83 TO 32+4*£G=l) > : NEXT H; NEXT 

i 0, 

... DR 
HU -131,0: INK 

3330 IF ORI THEN FOR F = l TO 3: P 
RINT AT 2*F+2 . 13, S-F- NEXT F: PR 
INT AT 20.15, "0 B D E F G H" 
3840 IF NOT ORI THEN FOR F=3 TO 
1 5TEP -1; PRINT AT £*F+2,13;F: 
NEXT F: PRINT AT 20,15:"H G F E 
P C FT 
3350 RETU RN 

?s!s ei? w s uv Ft msm 17 , 

TE'' ;■ FO- i..; = J.S TO 39 STEP 2 

3923 IF ORI THEN LET C$=BjiFELD, 

9- i-5-l i ,2. UJ-13; / = :■ 

3925 IF NOT ORI THEN LET C|=BJ<F 

ELD, (S-l) ,'2,9- (U- 13 J /2) 

3930 PAPER 8: PRINT AT B.LI: 

393S IF f " " 



THEN PRINT INK 5j 
GO TO 3990 
* = "b" THEN PR 



THEN PR 
ru- ;flT S + 1,U 

i = "S" THEN PR 
PS", AT S+l.U 



3951 IF C4=-T" OR OS 

INT INK 7* tCS=""T"D ; "i 
; "HI" 

39£~0~ IF i;$ = "S" OR C 

INT INK 7. EC*="S"3 . 

3975 IF C(="L" OR C»-"L" TH 
INT INK 7* lC«a"L"i .: "J!S";ftT 

3S80 IF C*="D" OR C* = "d" TH 
INT INK 7* lCt = "D") J -'IWi AT 

Listing des Schach-Editors (Fortsetzung) 
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397,5 IF i;:( = "K ■ OR C$ 
INT INK 7*iC$ = "K i 'J ; "■ 

399T5 IF FLRGil THEN 
S: BEEP .2,12 

3995 PAPE R 7; PET 
4000 REM *™"~ 



EN LET F( 

4010 LET U=CODE Ft-96 

4S20 LET 3 = UAL F« (21 

4025 IF U .: J. OR Ji-s OR Sil OR S 

T-iEN LET ERP = i RETURN 
4030 LET CI=F$<3) 
4040 _r- £■* iFELC', S . U) =C* 
4050 IF ORI THEN _ET 5=19-5*2: 
El u=13+2*U 

4060 IF NOT ORI THEN LET 5=1+2 
: LET U=31-S*U 

4070 LET FLAG^S: GO SUB 3930 
4090 RETURN 




5020 LET FELD=2 
NJ="": LET ERR=0 

5ii30 GO SUB 3.300: 
324S PRINT AT 4,4. 



HALBZUG"* 
"laTELLEN" 
5 FOR 1=1 



" HHURUECK" 
■0 55: FOR ■_ _ 
LET If = IN-.F", % 



QBECH5E 



5045 I 
5050 1 

?e-:.o if :;>=:-:■ or i*a"h") AND E 

RROS THEN GO TO 5110 

= 07i" l 1 " Ia = "R" OR I*s"r" THEN LE 

T CRI=ijRI=0: GO 5UB 3630: GO 5UE5 

3900 
5030 IF IS="Z" OR I*="I" THEN GO 



OR IS = "' 



THEN GO 

THEN LP 
. STEP -1 
3: LPRIN 



to : 

5090 IF 11= 

TO 53S0 
£■$■=.:=■ I" IS = "D" OR IS = ". 
RINT ■ SS ■ : FOP F=5 TO 
: LRRINT Fj : FOR E=l Ti 

t :.- ; :.,'FR5E f-.i : :j :ss 0,1 .^, , -. „ an 

T E: LPRINT : NEXT F: LPRINT " A 

BCDEFGH" ' ■ 

5105 GO TO 5050 

5110 GO SUB 6000: BEEP .02,36 

5120 IF ERR = ± THEr, Go SUB 9810: 

PRINT hT J+6.0; FLfiSH 1;"?" 

5 130 IF ERR=2 THEN PRINT HT 9,5; 

"^BS" : GO TO 5050 

5140NEXT J: NEXT I: LET ERR=2: 

GO TO 5130 

^ lz? Q0 T O _5_0_S0 

53'L'. : :. REN SEEBBSSBU 

5310 FOR F™ T~5~ LET BJf3,FJ=B 
tf2,F) : NEXT F: LET FEU? =3; LET 
■J2=-J: LET ER1 = ERR 

532S i-^TAT P.T 9, 1; "U 5 

" : IF Jsl THEN LET J=0 
=-33C INPUT ;, INE N( 

5332 IF N*(l) «"U" OR N*tl)i , 'U M T 
HEN LET J=J=0: GO TO 5330 

5333 IF NS="S " OR N(="5 

" THEN GO 3U5 5520: GO TO S330 
5335 IF N»il)="Z" OR N|C1)="Z" T 
HEN LET J=J2: LET ERRaERl: LET C 
tc" : PRINT P.T 9,0; 

Ct'CS: LET FELD=2: GO SUB 3900: 
GO TO 5050 

5340 GO SUB 2500: LET H(=N« 
5350 PRINT AT J+9,0;" " ; AT J+9,7 

5350 LET ERR=B: GO SUB 604.4 
5370 IF ERR=1 THEN GO SUB 9810: 
PRINT RT J + 9,0; FLASH 1; "?" : GO 
TO 5330 

E38B _ET J-J = 0; GO , TO 53 30 

5000 REM «33^HB| W35Bagiiaa 

6030 LET HJiZ* (I,JHI : LET ERR=0 
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5042 PRINT AT 6,8; ; AT J 

,3; ij ".".trb 7;H( 

5343 SEEP .01,24. PhUSE 0: LET 
JalNKEY*: IF IS-;>"H" FIND IJO"l 

THEN LET J=J-1: RETURN 
5044 LET J1=J: IF NOT 01 THEN 1 



5045 IF N0T=1 THEI 

6050 IF MSI TO 5) 

O TO 6930 

6060 IF MSi ' 

TO 6950 

6070 IF Mill 



6080 LET U=l 



61 - 



GO TO 72100 
■'0-0 " THEN G 

"3-0-0" THEN S 

PHEN GO TO 303 

LET M**M*(2 T 



6110 IF 1*=' 

&13I3 IF I( = - 

5130 IF I ta-K' 

5900 REM 

6910 IF 



THEN GO TO S200 

THEN GO TO 3400 

THEN GO TO 3600 

THEN GO TO 3800 

THEN GO TO 9000 



. SUB 4000. LF 
J 4300; RETURN 
GO SUB 4300: L 
■" LET F$ 



: GO SUB 
6950 REM . 
6960 IF J 



i thetTlet f* = " e S ' ' 



_ SO 3 

:0 SUB 40 
T FSs"a8 M : GO SUB 4030: LE 
d3t": GO 5UB 4000: RETURN 
ET F*="el": GO SUB 4000: L 
"ClK"l GO 5US 4003: LET FJ 
GO SUB 4030: LET Ft»'"dlT" 
-"TURN 



$ (FELD.U 
LET FS = 
LET F(=I 



7313 LET I* = M( (4 To 5J 
RL MtfSJ ,05DE fltili -96 
MSC TO 2> : GO SUB 4000 
S: GO 5UB 4000 
7320 IF fFSi2>="l" OR F* IB) ■"8") 
AND tF*t3)= ,, b" OR FSC3)="B") TH 
EN LET F$i3)=CHRs iCODE "D"+32*< 
F$ 13) =' ;.'■■: , GO 5UB 4000 

?a;e retu rn 

B038 REM @QOa 

S010 LET FIG=CODE '■B' 1 tJ*32 : IF M 

$ rs:i ; "S" THEN GC TO 31S3 

3(315 IF Ms ii-j -;=-S- fiNO Mii3); = "a 

" SND M^iSi -: = "!-. ■ THEN LET F = URL 

M*tS): LET MS=HS I i ' ir.C i 3. : GO 3_ 

& :?:i.93: GO TO 3170 

8020 GO SUB 6190: LET D=URL M$ (2 

8025 IF 6*lFELD,DtJl,C) e>" " THE 
N GO SUB 8140: GO TO 804-0 
3030 LET Dafr+Jl: GO SUB 8140 

804B If" FSii. -:jCHR4 (CODE "8"-7* 
'■ THEN RETJRN 









L : 3 ? 












™"^s 


"D": GO TO 3045 


























IF BS (FEL 










R F+1J.8 THEN LET 








3 J. .:}< 


LET Fi=Mi 





4.307- 

+ STR* F: GO SUB ' 
.S3 LET FS=M*(2J + 5TRS (F-J1J+CH 

■ ■-■•-. b i.c ■;:■£: ;L ::■ 30.13 

90Maj>C=CO[>E M*(li-96: LET D = 
DE MSi£i -96: RETURN 



3195B13BC = C0DE MS 
URL M8 [Si : RE TURN 
i = 03 PEM llggBD 
S205 LET FIG=COCE ' 
8210 IF M* i2) >■£" " 

3220 GO SUB 8195 

553^ LET E=CQDE M* 

E TO 1 5TEP -1 

3240 LET CS=B*CFELD,D,F 

E THEN IF CtoCHRS FIG ' 

M - THEN 3C "-C 324S 

3242 IF GS=CHR$ FIG THEI 
265 

82^.4. NEXT F 

024-3 FOR F=E TO 8 

824-6 LET CS=B $ (FELD , D , F : 
E THEN IF C(oCHRJ FIG " 

*■;:■■■ " TH = - G : ~r 32.52 

324-7 IF C*=CHR* FIG THEt 



96: FOR Fa 



: IF FO 
HEN IF C 

GO TO 8 



82S2 LET E 
1 STEP -1 
3iS3 L-l l:?=hi2 



IF 
THEI 



FOR F = E Ti 
"ELD ,F,CI : IF F< 



% : :. ::t-|RS FIG THEN 
30 "Q 8257 
HRS FIG THEN GO TO S 



82 = 3 

233 

3233 NEXT F 

8237 -OR F=E TO 3 

8333 ..3" !:-i=S; ira; F . ::) :r F <: :. 

F TriF." TF 3-S-: :OHRJ FIG THEN IF C 

J<>" " THEN GO TO 3262 

3259 IF C*-CHRt FIG THEN GO TO 8 

290 

82 -:i '-EXT F 

8262 LET ERR=1: RETURN 

8255 LET F$=CHRS iF+96J+STRS D: 

_-lj SUB 4000 

8270 LET Ft=M(i TO 2) +CHRJ FIG: 

30 31.13 45330: RETURN 

8290 LET F"i:M((l) +STR« F: GO SUB 

^i^'bfm H g miaa g 

8410 LET FIs=CODE "S"+3S*J 

t--.se ::■-- .■!==■: 2 : ."8" THEN GO TO 950 



S433 GO SUB 8195 

3:U3: L.3T -:;,-'■■': FOR E*-3 TO 2 ST 

EP 4: FOR F=-l TO 1 STEP 2 

8450 LET EiDtE: LET H=OF 

3450 IF G>=1 HND G<=5 RND H>=1 R 

ND Hl=8 THEN GO SUB 5530: IF C$= 



THEN GO TO 8550 
84-0 NEX- F: NEXT E: FOR E° _ 

1 STEP 2: FOR F=-8 TO 2 STEP 4 
8;.-::,J _£■; G=D-E: LET H=C+F 



TO 



LET C$= . 

33:.3 RETURN 

3S50 LET F$=CHR« (H+96) +STR % G: 
GO SUB 403H- _E-- F.? = M!s: ^"3 2W3H 
■ ■ . ,■:. ■:...■■:'. 



8610 I 

3630 GO SUB 8195 

3643 LET C% = '--' : LET G-3 

8645 FOR B=l TO 8: FOR E=-l TO 

8TEP 2: FOR Fte-1 TO 1 STEP 2 
8650 LET G=D+B*E: LET H=C+6*F 
■'- IF G> = 1 I-"" ■ ■ ■ 

1=3 THEN L- - 
... THEN GO TO 3553 
8670 NEXT F: NEXT E: NEXT B: LET 
ERR=1: R ETUR N 



THEN GO " 
IF ERR-0 
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gaiQ let 

9020 SO TO 

9503 REM 

9510 IF I 



33?;: let C=UAL 

2 TO ] 

S5 5S FOR F = l TO 3 

9*40 IF 6$ (FELD.C.FI 



CHR* FIG T 

RETURN 
) + 5TR* Ci 

I3U I U "JDftQ 

CODE MJil) -96: LET Mi 



__ 5UB 401 

9600 LET i 

=M$<2 TO : 

9610 FOR F=l TO 8 

9620 IF BJ CFELD,F,0> oCHR( FIG T 

HEN NEXT F: LET ERR=1: RETURN 

9630 LET Fi=CHR( (C+961+STRJ F: 

C-0 SUB 4000 

9540 LET F*=M*i TO 2) +CHRJ FIG; 

GO 3UB4000: RETURN 

9300H^feflB$ 11,11 ="T5_DKL5T": LET 

B$ il,2) =■■"-: 
= "bbbtbbbb" : LET B* (1,8) ="ttldU 
FOR F=3 TO 6: LET Btd.Fi^ 1 
■ - - RETURN 

:1 TO 3: BEEP . 1,24: N 
IRN 



98 1 BliaflaiF 
EXT F~rTt 



9900 

9910 INK 5: PAPER 1: BRIGHT I; 
'JEP 1: INUER5E 0: FLASH 0: BORDE 
" 1: CLEAR 




d-lC; PRIN T TAB 

"JTAS S; ■■,"— 

B9*ffl LET I 

TO 30 STEP 3; PLOT 55 + H.20 + H/: 



DRAU 35. 0: DRAU -15.10,1: DRAU 
,4.0 

9950 DRAU B.F: DRAU F,3: DRAU -2 
7,F: DRAU F,G; DRAU G,F: DRAU F, 
G: DRAW -G , F : DRAU F,G 
93S5 DRHU -G.F: DRAU F.-G: DRAU 
-G,F: DRAU F.-G: DRRU G,F: DRAU 
F, -G 

9960 DRAU -27.0: DRAU 0,-3: DRRU 
5,0: DRAU 0.-40- DRAU -15,-10,1 
: NEXT H 

5973 QUER O: INK 7. FOR F=0 TO 1 
0: PLOT 50,170. DPSU -15,-25, F/l 
5-PI: NEXT F: PLOT 30,130: PLOT 
75,160: PLOT 130,145 
9930 RESTORE : FOR F=USR "A" TO 
USR "LI"*?: RE:-.;.- =. P ,-.[■■£ F,E: NEX 
T F: GO SUB 0; GO SUB 9S00: PARE 
R 7: INK 0: BORDER 7: GO TO 10O0 
9990 DATA 7,7.7,7,31,63,63,0,224 
,224,224 E'24,143 2S.2 2S2 . 3 
y-991 DATA .0 . 1 . 3 . 7 . 3 , 1 . 3 . O . , 12 
; . 102 ,224 : 192; 123,0' 

9992 DATA 0,0,0,0,0,0,0,0,0,0,3, 

9993 DATA ,' , , 152 , 152 , 24-3 , 240 . 

224,3, 3,3, 7,7, 15,31,3 
■■---■- -■!■■■■■; .; j.-. J-: ., . . -/. ;,:.. . 2:i . .:■■ ■ 
O ..2-M. ,0 . 1 ,3 7 15. 31, 15,7 
9995 DRTA 0,123,192,123,45,245,2 
40,224 ,1,1,7,7,1, 1,31,15 
■■■■ ■■.. ■■ ■ ■ j ■■ :. ,■ .: 

3,243,240, IS, IS, 15, 15, 15,63, 127 
9997 DATA Sae . 240 . 240 , 24.0. , 240 , 
252,254 ,0,0, 1, 1, 1,5, 14,31 .23 
9993 DATA 0,32,192,193,240,240,2 
0-0,240,0. 1 , i .0..::.? .13,0 
9999 DATA 240,240,224,224.224,24 
0,243,0, 1,35 . 3 3,:~-3 . - 3 .7, 15,7, 128 
,195,132,252., 2^.2, 2S4 .,113,224 



Einfacher als man denkt 

EsistnichtsokomplUieil. wie es sich anhorl. Worm Sie erst 

einmal eine P • ■■ ■- ■■ -i ■■ -i - ■ ird naurgespielt haben. wer- 

den Sie merken. ciGd:e Vioiiii-loo'inik UfiVunagendgccigriol 
is!, v;file Furikiioir.-n in i.'ner ;.■.'■■;; is ohon Reihfir'ifolrje ai.Ji'zuru'o.i. 

Manchmal hat man das Diagramm einer unvollondeten 
Schachpartic vor sich und ijarunvsr s;oht dann »wie gewann 
Schwarz?« (oder WeiB). Der Sefiach- Editor macht seinem Na- 
menalle Ehrc, donn durch Dn'.icken der lastc 4 gelangtman 
,:um »Aulbaui. Die aus ce-Ti Menu wfililrxirwi F.mklionen sind: 
Herstellen de- Ausgangsposition j-.i. Air<"iiimen fles Brettes (I 
= loschen) und ^u'uusgebei: ins I !.aup;nenu. Zuerst werden 
Brett (16 x 16 Zeichen) und Figuren gezeichnet. Darn er- 
scfieint eine INPUT-Zeile, und man Kann entweder eine der 
droi otien ;.;enanr.;on FirikTior.or ::.!i;"iulirsri. oder ein Peld auf 
dem Brelt mii einer Figur besetzen. Dazu gibt man erst das 
Feld (zum Bfiispisi e-H i.:;.nn die Flour rils GroBbuchstabe ID 
= Dame, B = Bauer und so werer .:. und anschlielJend die Far- 
be (sfiir s oh wiry, bei ■■«>■■ 13 ksm w onrtallen; oin. Ein Feld kann 
geloscht werden, indem nur seine Koordinaten eingegeben 
werden. Mit z kehror, Gio ns Haup^nenu zuriick. 

Betrachten v.r nur: die s.oner inrn.-osftanw-ste Wahlmdglich- 
keit. Punkt 6 (Pnrlifi riKohspic.onj Nncn Driicken auf 6 wird 
wieder das Brett gezeichnet und die Figuren werden aufge- 
stelit. Links union ist das ,Vienu mit siebor. '.■Val^r.iogliulikeiFen 



sichtbar, von dencri zwoi nui i-;x;li I'ln'.icken aul v(~ Variants) 
.■dganglioh sir id Wi = Wechscl. a = Stollon). Uooti ^uerat sol- 
Ion dio anderei: Funktionen odoiutori wordon. Das Brett kann 
mit r(— Richtung; ■.n:i:.;ediel : i ■.".■eider,, so da(S die schwarzen 
Steineuntensind Worn nidiuiuf iidrLickt. wird links oben (ne- 
ben einem w flir W9i!j und einerr s fur scnwarz) der als nach- 
stes auszufiihrende Halb^uy unci su'mn Zugnummer ange- 
zeigt. Nochmaliges Drucken von ft bringt diesen Halbzug zur 
Ausfuhrung. Mit d wird das Brett mit dem aktuellen Stand auf 
demDruckerai,.sfjp:iSh(-r Allerdngs'iicksls Hardoopy, aon- 
dern als verklomorios ; liagramir. das GroRbuohstaben zur 
Ken ntlichmac hung der wesBsn u\v: Kleinbuc'istaben fur die 
schwarzen Steine verwendoi. Nun zur Taste v (- Variante). 
Wenn Sie diese laste ^otatigl nabur-: fiisuhs^nen ein weiteres 
w und ein weiteres s. Siokbnncnn:.iri;wiiHarid« weitereHalb- 
ztige eingeben, die zwar die Stellung auf dem Schirm veran- 
dern, nichtaberd eS:elluna. die vor dem D.-iicKen auf v aktuell 

BeachtenSieb::lo. d;:[; dhis Piogramn *weil5s, welcheSeite 
am Zug war oder is;. Innerhaib o not Varir:nle kdnnen Sie dies 
mitw(= Weclisei) ar dem :::,:.>; hoilitSeiifn ■■/ortauschen). Je- 
der in diesem Modus eingege bene Zug wird auf Durchfiihrbar- 
keit uberpriifl unci ,tm,G geyebene.'ihill.T.; korii-j oil werden (au- 
tomatischer Sprung ins Korrektur-Menu). Sie konnen auch — 
innerhalb einer Variante — mit s ( = Stellen} Figuren hinstellen 
oder entfernen. Dies funktioniert wie bei Punkt 4 des Haupt- 
meiiLis (Stellung au'baueii) .Vlil z kehren Sic in das jeweils 
nachsthohere Menu zuruck. Von sStelien, kommen Sie darnil 
zu »Variante* und von dort in don Nm-.hsoif.i- Modus. Wenn Sie 
I Modus zu'uc-i.ge-J.ehri sind. ivo rdur' dn-: I'igjren so 
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Mit dem Spectrum 
tvird das Nachspie- 
ten »trag barer™ 




IpRIflNTE 
EpLBZUG 

HR.jCKsTN 
BECHSEL 

Btellen 



■Atlktii 



iliiiiii 

tittkiix 



Das grafisch gut 

gestallete Tilelbild 

des Editors 



Basm 


6 


t k it 

* * * « » * 

A A AX A A 










IS. Dd7: 




t 






L 


Aktuelle 




B 


A 


Spielszer 






liii 


Pratokoll 






i 














A 11 AAA 




TELLEN 
URUEGK 


1 


tit t k 





Die Dual derWahl: 

Das Menu mit 

8 Optionen 



1 ZUEGE EINGEBEN. . , . 

2 ZUEGE^HUFLISTEN. . . 

1 bTELLl-Ni~~s j^frJe:':,. 

3 IIr;C-H5E FOS _ :EZ--ZiJ 

6 PART IE NftC.-i=-r :zLf-: 

7 HUF Efi'lD .-:■',- „':;-: F=.'N 
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Variablentabelle 



INKEYI. 
PS FlagfurDmcm 

T£(64( Eingabe-Strinc 



:J=1.FIG=CODE»E 



hinccsiolH wie fan vorher waren. und Sio connerl weiternach- 
spiefen. 1st der let; re Zug &■ reiel ii. ersshe.'il das Wor! »ENDE« 
auf dem Bildschirm. 

Kommen wir je-tzr zu dem leil des Hauptmeniis, der das 
Speicliem aut Band und das Laden vom Band ermoglicht. Wird 
die Taste 7 betatigt, dann wird nach dem Namen getragt, den 
die Datei erhalten -.oil. AnscilleBend nach dem Titel der 
Schachpartie. Der kann n:s^u 04 Zeichen — alsd zwei Zeilen 
— langsein. Nach ENTER orsdieir:: zweimal -;urz hintereinan- 
der die bekannte Metdung i-Start tape, then press any keys. 

Das Ab ' '!■ ■!■! . i ■ i. ■! ■;,■. ■!, : ■ ■ .■ ■! i/i. i ;n. WennSievom 

Band laden wollen, dann druckcn S,e auf b geben den Dalei 
namen ein (kann mi.. ;_: ■ 1 e : n Loerstnncj soin: und die entspre- 
chende Datei wird n -sen SpBcner geiaden. 

Es werden zwei Slrng-Fdder ;V.r B.ind gobracht. (Das Pro- 
gramm erwartet ijbrigens, dafi Sie zuruckspulen und verifizie- 
ren.) Das erste Feid isl der Zugsseichor /s(65.2,6). 64mal 
zwei Zijge zu ie weeds Zeichen '-inben dorl Platz. Speicher 
Nummer65,t blt-iti- leer, da.'ini das Er.de audi beivoltem Spei- 
cher nocn erkannt werden kann. Nummer 05,2 halt die Nota- 
lionunddie Anzahlder Zuge. sodaR. mi: Funklion 5 desHaupt- 
menus eine angefangene und eventucll abgespeicherte Ein- 
gabe zu spaterem Zeihinnkl /crlgesetz; werden kann. Das 
zweite Feld ist B$(4,8,8). Es 1st der Brett-Speictier, der vier 



autgebaute Schachbretter aufnehmen kann. Tatsachlich wer- 
den davonaber nur drei berbl.igi Pines fur die Ausgangsstel- 
lung, eines fiir den Naciieeielmocus und eines fiir den Varian- 
tenmodus. Das vierte halt con I itol der i-'-atVie — mit 3 x 8 = 
64 Zeichen, also besagte zwei Zeilen. Eine bkonomische Lo- 
sung, wie ich tinde. 

So konnten sarntlic.ne fiir cie Par: a wichligen Daten in nur 
/wei SI ring- r^lderfi u-ifergenrachi ■/■.■orde'i Ubor;mdere Variii- 
blen gibt die Tabelle Auskunft. Nun zu wichtigen Programmtei- 

— Die Zeilen 2160 bis, 2290 non-men wahrend der Zugeinga- 
be die Ziige an und slellen fest. ob die maximale Anzahl er- 
roiehi i si oder ob r;er Ben .iter oinen _oci string eingegeben 
hat. Daessicliuimlin-en:,iL'r"erieS'.:1n:s:ia.nddt, bat ein Leer- 
string naturiieh -rimer e,ne :'e:;,l.;eleqte Arizahl an Spaces. 

— Die Zeilen 2300 las 2-lij:: hoien sieh jeden einzelnen Zug 
riao.ieinanderaus den" Zugspeieher end .il lorgyben ihnandie 
Testtdutine ab Ze-ie 2500. Zeile 2310 ve-ihmdert die Frage 
i)scroll?« und macht dafur eine Pausa 



Was geschieht wo 



— 2500 bis 2980: Syntax-Test. Jeder Zug wird untersucht im 
Hinblick auf se T13aoder 
sh9, gA4, Lbf Oder 33 werden herausgefiltert und mussen 
korrigiert werden. Bei "-Jo-ration 1 kann jedc beliebige Figur von 
irgendeiner Posiiion ?.u\ den- Ijret.t .;u eine' anderen Ziehen. 

— Die Zeilen 3000 bis 3110 stellen unter anderem eine 
Korrektur- Routine dar, fur den Fall, daJ3 nlcht das Programm. 
sondem der Benul/er dnen Feblcr enidock! hat. Fiir Fehler, 
die wahrend des Svilax-ieits entdeckt werden, halt diese 
Routine eine eiqcre Ko-iekiurmdglichkeit bereit. 

— In den Zeilen 3500 bis 3600 werden alle Buchstaben ent- 
ycyiingenommen, dio in den Mi.-n.'i uon i-Stetlung autbauent 
moglich sind. Sie.-e Vai:ablenra;;dle unter F$. 

— Die Zeilen 3800 i-.-is 3S20 zoichnon das Brett (obne Figu- 
ren). Die Variable- ; : enlliali ,:iei neu.n mar zwei Spaces, denen 
abwechselnd die Stouor/Gichfcn 3 und 5 fiir die helien und 
dunklen Quadrate auf dem Brett vorgeschaitet sind. Diese 
Steuer^eichen, die in Zei.e 3S0a vorersl in A5 und H$ abge- 
legl werden, konnen geandert werden um dem Brett andere 
Far ben z.jzuordnen. 

— Die Zeilen 3830 bis 3850 geben dem Brett die Koordina- 
i - - ii ■■ - . -■ -il : .!■■!■■ V;:'i;ililenl;.it)elk:' Ji:ier »ORI«. 

— Von 3900 bis 3995 geht die Rdutine, die die Figuren — alle 
auf einmal Oder einzeln — auf das Bret! slellen kann, Diewich- 
tigsto von -W ■■.■;■: r'-v-^ndete Variable ist FE. 

— Die Zeilen 4000 bis 4090 dnd o'.a:li.-zu;;t. : i.'idig, daReinzel- 
ne Figuren stels riolilig ;-iiil das Brett gcstellt werden. 

— 5000 bis 5200. Paihe naoti^pielen. Unter anderem wird 
der Interpreter ajfeerufer. Seine "eflermeldungen werden 
verarbeitet. Hier befindet sich auch die Druckroutine, die ein 
einfaches Diagr;irr,r.i des Sonachbretrs auf dem ZX-Printer 
ausgrbt. 

— In den Zeilen 5300 bis 5380 werden die meisten Variablen 
ausdem Nach5pir;imodi.js<.'w:s!::i)engespeic!iert. Unter ande- 
rem kann dann dr" Interoreter aufgerulen werden. ohne daB 
■'" ■■ v.: iablen ■■ ileren gehen. 

— 6000 bis 9020: Der Interpreter, das Herzsiuck Hier wer- 
den die einzeliien Zuge inferprolie::. Bei der ersten Notation 
ist das ganz einfach: Feld. von dem gezdgen wird, Ibschen. Fi- 
gjr. sie ■■.■crhe- darau: ^-a'id. auf Zieipo.-vr-on slellen. 

BeiderKurznor.ilion a' es unvorglc-ic-hi-cii kornplizierter. Ab 
Zeile 8000 wirdjedeFigur— en tsprechend ihrer »Gangart«— 
bewegt. 
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Der Bauer: Rei Voi war :szjge" wi'e ucerpruft. ob auf dern 
Feld vor der 2 wird dieser 

gelOscht; wenn nein. wird die ionise F gur geloscht, die zwei 
Feldervor derZielpositlensteh". Soi S n i I w! "i .- : .->:-- ij n e r : dayegen 
wird ijberprfjft, ob uuf der Zieloos '. on sine Figur steht. Wenn 
nein, wird die Figur auf dern Feld hinter der Zielposition ge- 
loscht (en passani; Das Prograriin ;wei!i« nicht, wo en pas- 
sant geschlagen werden darl. i.s'sliU.aber. wenn einZug die- 
ser Ait aufiaucht. 



Die Spieifiguren 



Der Turm: Von der Zielposiiion ausgehend wird untersucht, 
□b von links, reehls.. oben oder ■jnten mit ein em Turm auf die- 
ses Feld gezoge.'i tve'dan *a. r in : ohne eine andere Figur uber- 
springen zu mussen (das 'sr fur den Menschen selbstver- 
siandlich, nicht aber fr.r e'.no.u Computer). Der Laufer: Wie 
beimTurmJedochBetrachlungderDiagorisilcn. Der Springer: 
Der Computer »schaut nactw, ob mit einem Springer auf die 

vorgegebene Zl posilioi ■■. ■. :i weraen kann. Es wird 

nicht jede Position eiive:'i nborprul (cs si 'id acnt), sondern 
zweiSchleifen ubemehmei -==.-- ■ - . i .:.. :,'imeundKonig: 
Die Fiewguricen ciioser neuron sot?en sen aus denen von 



Turm und Laufer zu .-earn men. Also wurdeu such die Boutinen 
dioserFi(jurenaul{.:sii; ; cn. Dns Preo/nn-im >rnerkt« nicht, wenn 
ein KPnigsieha.inaCr.. eenausc we-- Ziehen, zu wollen wieeine 
Dame. Aber das isl -n.-s'i nicht Aufgaec dieses Programms. Der 
Interpreter, von dem hierdie Rede ist, reagier; auf foigonde 
Fehler mit einem blinkenden Fragezeichen (der Zug wird 
ignoriert): Eine Figur versjghi untfdaubte'tveise tiber eine an- 
dere hinwegzi iso.-inoer; i aus, ge no mm en Bauemziige); Oder 
eine Figur steht nicht dort '.".'osioslehonsoilte, umifire Zielpo- 
siiion errsichsfi ;:■.. kennon. 000: ist psee ii'id gar nicht vorhan- 
den (abermais sir B^.ueui ajsgenommen). 
Wie gibt man das Programm ein? 

— Fur die Graphics tjHi'-iji.ici i Sipbilife^isGraphics-TabelietlJ. 

— Zeichen. dieimLieiiric rivers ssdruektsind. wurdenmitlNV. 
VIDEO vor dem ersten und TRUE VIDEO nacb dem letzten 
/eiceen erzeugt. 

— Verwechseln Sie bitie mob: oie Variable NOI (Notation) mit 
der offer verwendeten beischon Fimktion NOT. 

— Nach dem Eln'poen diuck^n ; ■■■!.-■■ i AR. BringenSie 
das Programm mii SAVF >K:HACH-PP ; < LINE 9900 auf Ihre 
Kassette. Noch ein Tip ?u:n Abspeicheu: von Schachpartien: 
Sollle boim Veritiziorcr ein Feelo' anfieiue.eeri dann konnen 
Sie mit GO TO 1180 den Vernziervuieia! g ■■■viederholen Oder 
mit GO TO 1000 ins Hauptmenii zuruckkehren. 

(Andreas ViebKe) 
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SPECTRUM 
Soft- und Hardware 
DAS 

Textverarbeifungs- 
System fur Ihren 
ZX Spectrum 48 K. 

INES 

DM 49.90 



Au(3erdem die hosier-' 
P'reeiey-me fur Ihren 
I ■■■ :,i ,i ■ !■ 1 1 1 ■ -i- 

ULTRASOFT 

Kamperweg 167 
4000DusseldorM2 
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eoerv ba&inski » pene STO&A 5 
SFWECKjre.g /SOOOfluWuieUGo 
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ZX81 
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2 



Wer Programme in Maschinensprache fiir den ZX81 schreibt und 
sie dann verkaufen mochte, hat sich sicher schon einmal gefragt, 
wie er das Programm sicher vor Raubkopien schutzen kann. 
In diesem Artikel schlage ich Ihnen eine Methode vor. die den 
Softwarepiraten einige graue Haare wachsen lassen wird. 
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ZX81 



daswirkopierenn 
den wir das Prog 
LOAD " ". Der en 

BREAK-Taste. Ein 

men auch' Routine 
sterns. Manche da 



C:e tiler 
einen I 

Froqra: 



t geSAVEt words, 
rt haben wir das Pre 
im Speicher und koi 



scheinbar irntr 
Trick. Die beid 
Mcqiichteiten, 




Hacker nach dem Enischliis 

hat, haben to was wii wol 
einzige Problem ist jeizt, wo 
men wir ein Byte, das i 
kenni, das aber vor und n< 
SAVEn des Progiamms.n 



; :ssbt wirci Da die RouTine-j 
T und SLOW beriiilzl weiden. 
Ken sift ei"3i an Ihrsm ZXS1 ie- 
: welcbe ROM "version Sie ha- 
le r:;;ri. HOt.: '■■.■■;■: r.-i''n ""■""tldcr. 

■ ! . ■ :■::■.. I ■ en 

■. ■ .:--v: i.si? ;s/3 en... Kmm 

I:.. 7.Y-. ' . "ASTMoiHisseir,. 

.1 b,;. ' i /.MDLJSRSaRCom. 

sollten Sie -.i.edei im SLOW- 
ins sem. Ist dies der Fail, so ha- 

Sie erne fiitore Version des 
<!a (vvhk fiber niahts ausimciii ). 
■Izen Sie ribei im Listing die un- 
nclieneii Zdlilen duich none: 
und start 
" nehmeij Sie 280F. 



Programm-Eingabe 

e REM-Zeik 
chen erzeu- 

:-■ KASTMoou:- 



i 179 Leerzeic! 



n abei 

i Syster 



Safety first 



"'"..;':,' i HUM 107 L.:!i-:i;.yjii!age... 

'■ ■')■', i", ". t'OR A-;RFii<l TO 16656 

'■■:;..... '.;.. 

-,1 a d 4 POKE A,16*(OODE 

'': rL-feL A${l)-28) + CODE A$(2)-28 

t unveran- 5 NEXT A 

s Variable Werin Sie nun alle Hex-Zahlen ein- 

aufgenom- gelippi und keinen I- shier gemacht 

lealfiirun- haben, losdieiisiedieLinienSbisS. 

Geberj sie die fc.nerden Zejle.n ne;: 



kannten Byte einer XOR-Verkniip- 

Funktion hal namlich die Eigen- 
sehai:. daE em Byte. -v/cin-.,-; •-*.-- 
nem beiiebig anderen, sill . i i 
desmal gleichen Byte verkniipft, 
wieder den alien Wert annimml. Se- 
hen wir uns zuerst die Wahrheitsta- 
belle fur die XOR-Funktion an: 



■i •:.: srste 



Male 



tinier. 



>r Sie das Programm nun mit 
RUN 4 starten, empfehle tch Ihnen, 

eine Sicherheirs!::;rve ;-mf Bfind »::{■ 
zunehmen. Vielleichl haben Sie sich 
doch irgendwo vertippt. 
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nx 












IA 














1% 


CD 8B 40 






CALL C1«PT 


V^HtiLtag 


\y^ 


CD 2B OF 












C3D4 40 






JP STARTPROG 


2Um Haupipiogramm 




2A34 4G 




CRYPT- 


LD HL,(FRAMES) 






TC 






LdA.H 






AD 






XORL 


Verkniipung del 
beiden FRAME-Byie 
zu einem Byte 




01 S3 DO 






LD BC, ENDPROG-BEGINPR 












Lange des Programs 




21 Al 40 






Ld HL, BEGINPROG 


Verschlflsselung 


' Q 


67 






LDDA 






7A 




CRYPT$1 


LDA.D 






AE 






XOR (HL) 

LD (HL),A 

QJCHL 

DECBC 

LDA.B 


verschiiisselt 


^»'»'« 


aoF7 






ORC 

JR NZ, CRYPTJ1 


noch ein Byte? 


■*=*«* 


C9 


BEG1NPROG 


iSSSXK, 


fete-..** 


a 


v 


3A 33 30 34 35 2E 2A 37 








27 26 37 2A 38 00 3 


37 










34 3C 37 ?,i> :■.'„ .=.:•; 












00 00 00 00 


00 00 00 












00 3B 34 33 


00 35 2A 39 










3A 37 00 33 


2E2A 












2A38 1B 














3E00 


STARTPROG 


LDA.O 








32 3C 40 






LD (403C) fi. 


Indikator fur 






CD2A0A 




PROGS1 


CALL CLE 








21A140 






LD HL.BEGLNPROG 








06 33 






LDB.33H 


Anzahl Texi-Bytes 






3A3C40 




PROG$2 


LD A, (403C) 








AE 






XOR (HL) 








D7 






RST10 
TNCHL 
DJNZ PROG $2 


Ausdruck 
nocheinByte? 






3A3C40 






LD A, (403C) 








EE80 






XOR 80H 


Indicator wechseln 






32 3C 40 






LD (403O.A 








ED 4B 35 40 


PORGS3 


LD BC,(LASTKEY) 








03 






IMCB 








73 






LDA.B 








Bl 






ORC 








23 F7 






JR Z,PROG$3 
DECBC 


Taste gedrtickt? 
Ja 






CD BD 07 






CALL DECODE 








7E 






LDA.(HL) 


A := Code 






EE33 






XOR 38H 


ist es 'S? 






C2 D9 40 




ENPROG 


JP NZ.PROGSl 

; Ende des Hauptprog 


Nein - PROGS1 






CD 23 OF 






CALL FAST 








CD BB 40 






CALL CRYPT 








21 36 41 






LD HL.4136H 


Adresse der Basic- 
Linio, die nach dent 
RET ins Beliisbs- 
system ausgefiihrt 






23 39 40 






LD (NXTLIN).HL 


Systemvariablen. 






C9 






RET 


zuriickins 






MBBchinen 


code-L 


ring >,Kop 


erachutz. 


Betriebssystem. 








*'y 



schliisseln und starter,. Hoffentlich 
haben Sie vorher eine unverschliis- 
selte Kopie auf Band aufgenommen. 
Sie konnen auch das Programm sal 
Band aufnehmen und es mil RAND 
USE 836 wieder laden. Obwohl Sie 
das Programm einwandfrei laden 



ind dan 


L;. j. : -.j, . 


en konnen, ist es 


.iCi-ciisi ,ai 


I .: ■ 1 


einlieh.daSSieje- 


rr.-As -=m 


timid 


:msiahiqe Version 



ad h ■ 



i Auf- 



Jer fast opLmia! isl. 
Es gibi nur noch eine Methode, die- 
ses Programm zu vervielfaltigen: 
Man mu6 die Kassette analog von ei- 
nem Kassettemecorder zum ande- 
ren Qberspielen. Da der ZX81 aber 
ziemlich heikel ist, was die Quaiitat 
der Aufnahme angeht. weiB ich aus 
eigener Erfahrtmg, daS ein Erfolg 
mit dieser Methode sehr selten ist. 
(Peler Tiesr.es) 
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Ein Ruto/tart-auch fur ZK 80 



envier In; bun i;lionroi Vi'rkii^en 



EPROM mil RAND USR in diese Pro- 

* bei Basic- Pro'Tram. mer laden znd 
mit RUN Oder GOTO neu starten. 

Bei VerwendLina ernes »Au;us;art'i 
springt der Rechne; beim Einsch.nl 
ten auiomatisch, c_.::e zusaiznchen 
liaiidoriff incniF'i-ii mim in einem 
EPROM - ■ dahei der Name. 

Erster Schrrtt: eine ganz 
simple EPROM Platine 

Karten. Wir haben einen Bausatz 
von Decker gepi n hi .-. ■' ,e 
rung suchte er einen neuen Weg. 
Dazu wird die Lucke zwischen 
Basic-ROM und RAM lin Bereich 
von 8 KByte bis 16 KByle in vier 
Bldcke zu ;e 2 KByte (fur EPROMs 
TOm : J'vp27lE)>i).:Jii;-/woi.tildcknKi]j(! 
'-. KByte l.iarsoeffiir 2732) zeriegt. Bei 
einera 2764 brauchen wir dio vol lei: 
8 KByte. 

Um die drei verschiedenen 
EPROMs lm gleichen Sockel einset- 

sehliisse mil Drahtvcrmndung derci 
jeweiligen IC-Typ angepabt. Die 
Platine ist fur nine Bestucki.mq mit 
2716 geatzt; bei 2732 Oder 2764 ist 
der Urnbau eine Sache von zwei Mi- 

Damit ist die EPROM-Platine be- 
reiis fertig. Sie kann natiirlicli auch 
ohne den Autostart betrieben wer- 

Zweiter Schr'rtt: der eigent- 
liche Autostart 

Der ZX gibt ein mehr oder wem- 
ger brauchbares Signal ab: RESET*. 
Beim Einschalten dei Stiornversor 
gung Oder beim Betatiqen des 
Reset-Knopfes wird em Kondensa 
toriiber einen Widerstand eeladen. 
Hat die Sparmuiig am Kondcissato.t 
einen gewissen Schwellwert er- 
reicht, so gibt sie den Prozessor frei. 
Diese Spannung wird auch auf den 



Bei dieser Uberschrift stellt man sich als 
erstes die Frage: Was ist das eigentlich, ein 
»Autostart«? Nehmen wir an, Sie bauen 
sich mit dem ZX80 oder 81 eine Steuerung, 
dann miissen Sie doch das Programm dazu 
von Kassette laden oder in einem (teuren) 
CMOS-RAM mit Akku-Pufferung speichern. 
Haben Sie das Programm in einem EPROM, 
miissen Sie zwar nicht laden, den Rechner 
aber immer noch von Hand starten. 



Bus qofiihrt. Wir verwenden sie in 
eit.ftr kleinen Zusatzschaliirng. die 
den ZX dazii bringt, daB er beim 
S:anet: nx-h: :m liasic-ROMzuarbei- 
ten beginnt, sondern auf unserer 
EPROM-Platine. 

Dabei achten wir auf zwe: Dinge: 
* Der ZX verwenriet sum Erzeugen 
des Fernsehbildes einen NMI- 

Stsrten .!■■■■ i. [■..; ;'■ ,i = "| ■ 



* Wenn wir cm Programm aus dem 
EPROM auuluhien. mag das ja ganz 
nett sern, aber das 8-KByteROM 

wii ja gleich das ROM durch ein 
EPROM etselzcn und mis die gan/.e 
Platine sparen. Darum ist die Sclial- 
:ui:qsoc:ebam.da5 wir auch auf das 
ROM zugreifen, also auch Basic- 
Programme benuis-m konnen, 

Der Reset-Knopf kann an der Plati- 
ne oder intern im Rechner ange- 
schlossen werden. 

-Platine be- 



rem EPROM Proi 



( ko 



me u.nierbiTi 



FurvieleSteuerungen isteserfor- 
derlich, nach Syslemabsliirzen die 
Steuerung neu zu starten. SchlieB- 
lich ist es nicht jedermanns Ge- 
schmack, nachts um halb drei in den 



! Sichedieks 
lie man als 
lchnet: Wenn 



Relak,koul.d;' nach Anlauf del Fiinr 
Minuten-Frist ?\\ i nu-k-qcseiZL unci Aei 
Autostart starter die Steuerung von 

Der Autostart .laufh rait dem inter- 
net] 1-KBvte RAY u i -it dc=m Ori- 
ginal RAM-P-.J ■.■..! i Sinclair sowie 
dem 16-KByte-RAM der Firma 
Dorscli Lelztere Piatiiie kann auch 
auf 48 KByte beziehungsweise 56 
KByte umgobaui werden. Beide Zu- 
siitze haben einen eigenen Refresh- 
Zahler. Ob alle RAM-Platinen mit ei- 
nem Rofresh-Zrihler mit dem Auto- 
start z T jsan-jmeu.;ui:o::cu i.;.i uocii 
nicht bekarmt. 

Die Memotech-RAMs aibeiten 
iibriqens nicht mil dem Autostart zu- 
samrnen ebenso wie sie bei emer 
Reihe von Podschaltungen »strei- 
ken». Auch andere RAM-Platinen 
ohne eigenen Re fresh -Zahler arbei- 
ten nicht mi! dem Auiostart zusam 
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Die angegebenen Praise sind Ladenpreise. 
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i halten heifit ...DELETE-, beim Cri 



oh Pre 



ri'-i-'-r 



doren Compulor limgeschrieben bei larsaen Redienoperatt 

werdensoll. ^i;m <;c-r ^Mb'-^odusf^nf-v;?^: ;-:(in:ntc.r7n^e 1 .1c-.- = 7.' 01- be- 

I'll-- '""''i- f-ii P-obl"-! :r,-.-;er.: air" Is: ivo-don. W;:.hi-a:id d^i\;i Zon ?,i u. .ji ih. ; : . ^lu.ji:::-;: (. ,■!, .■■<■ r,\' 

wenn .PiJIK. in: »?OKL« ...hn ..[■■:: <ur , t .'l .-, i:l. ,:or fcclne-mich! urn druck.oti wic- nblia 

werden, braucht man das Hand- da.s I -.-;_. :._-i:i__:d solange ei inch! »PLOT Spahe,Zeile.< (ZX81) 

buch des anderen. Wbbei das noch au: ■.■ . ....'.-. ■nii.bfdKPUT* mm qibl es avar sj: heiden Recnr.ern. 

.<■-;--,<:■ U; ■.,!■ ,-> ,! j,( . .;;■; r.j elf.; S^.sp.el). D = ri:n;?- hi: e:-- me:ii Ze:. abe: dei ZX<;i ;eu: oi . •■•.rdo-r::-: R;> 

Prcblens i,st. Ir. v. els-, liandbu- :-;i.;m KficiiiioN. ivb »S:.OW» wild cUe- :4or ?i .nr^rici^. hedinqt dnrch d'P 

a'lenififehr-iirwoimjdri-i.diorillor- scr Modus ■xie.c.si subcoscw ;«. -"^v jrc^ve Auflosung. 

wenicjsten sir-d so ausi'dbrlicb wie -PRINT., fberdel Fur die kleineren Computer ist 

Siriclairs. ist won! emer der a:n hauf i 1- tun 1 n 1 nut Hjlfe f-i- 

Im rolncTcier. -.verie :rh die Be- debr-i-hon Ho Wile Uberhaupt. ties vor e::i gei Z,-ii m Happy-Com- 

feh.en.id 1 1 I" ■■ .■',■! /\" rd P. '• -.;■;- 7" .--.---..-.--._ iS ;__o - _,. , -, <--_ ■ ,., en pv IJgJ:a:l . 11U; . 

Specn .t: 1 ad* ffi 31 .:;d oeaebe- die beiden & -' I '. 1 n Bfi i'- . ■•'• I f nit dett: -HXO.. 



■•/ k;..iLii vol!- (spalte/ 
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Die Berechrmng der »PRlNT«-Po- 
sition beruht darauf. daB jeder 
■■■Pi.n-.k:« -is? ZX31 hixb sc br»:: nnc 
halb so hoch ist wie eine Schreibstel- 
le. Zudem werden bei »PLOT« die 
Zeilen von unten gezahlt, bei 
»PRINT« von oben (iibrigens bei bei- 
den Coraputem), 

Crafikzeichen s;eht fur eines der 
folgenden vier Zeichen; »»,»*, 
» «» «(ViertelquadrateaufdenTa- 
sten 1 — oben rechts, 2 — oben links, 
4- unten rechts and 7 mit Caps Shift 
— unten links). 

Mit etwas Rechnen vot dem 
Druck-Befehl kann festgestellt wer- 
den. welches Zeichen gedruckt 
werden rnuB: 

LET a$ = *-t REM Grafikzeichen 
IF zeile/2<>INT (zeile /2) AND 
spa!te/2<>INT (spalte/2) THEN 
LEI' : :onl _ il lehe-^olN'i' :zei 
le/2) AND spalte/2=INT (spalte/2) 
THEN LET kont=2 IF zetle/s=PNT 
fee.le/21 AND ;',[.i ! .;lt(v?<> INT (spal- 
te/2) THEN LET kont-3 IF zei- 
le/3=INT (zeile/s) AND spal- 
te/2=INT (spalte/2) THEN LET 
kont = 4 oder so: 

LET kont=(INT (spalte/2) ospal- 
i«/2 AND INT i*;;-ik!/3)<> zeile/s) 
+ 2*(TN T (zeile/2)ozeile/2 AND 
INT (spa]te/2) = spnlte/2) i 3*(INT 
(zeiIe/2;, -cdo/T! AN.) INT (spal- 
:ov;)<>!-:|.,r,!i,;/?;i 4*(INT (spalte/ 
2)-spaIte/2 AND INT (zeile/2)= 
zeile/2) 

Die erste Version erf order! zwar 
vier Zeilen, der Prozessor verarbei- 
tet aber »IF. . THEN* schneller als die 
in der zweiten Version benutzte Boo- 
le'sche Logik: Der in Klarnmern ste- 
hende Ausdruok ergibl den Wert I, 
wenn der Ausdruok wahr 1st, an- 
demfalls 0. (Bei anderen Rechnern 
ergibt der wahre Ausdruck oft den 
Wert -1!) 

Beide Versionen benuizen folgen- 
den Hintergnrad: Wenn die Spalten- 
zahl m dem »PLOT«-Befehl gerade 
ist, liegt der »Punkt« m der lrnken 
Halfte der »PRINT«-Position. Bei ge- 

Hiiltte a] drucken Aus beiden zu- 

lon links. odRTi-ohen rechts.. In dera 
»PR1NT«-Befehl mufi es dann heiSen; 
...;a$(kont) 

Soil dieser Befehl in eine Schleife 
erngebaut werden. muS vorher 
»OVER h gesetzt werden, sonst 
loscht em neues Zeichen ein altes. 



■>FLASH<. (Spectrum) 



3 (War 



jchlei 



::lw.'KieiLanged; 

.SCROLL,, (ZX811 

si em, r-juf dem Spectrum norma' 
/,■■=[-,« uhcrfl-jssirrer Befehl. W« 
neiriiZXH! in Zo»le 21 'ledr^ckl ■/. 



soil, unterbriciit or das Pranramm 
rait der Fehlermekhiny sFSildscsutiii 
trail*. Mit »SCROLL« wird der Bild- 
scliirminhalt um eine Zeile nach 
oben geschoben. Der Spectrum 
fragt hier automatisch »scrolT?« und 
macht nach Taslendruck weiter. 1m 
»ROM« gibt es die Scroll-Routine 
aber rmtedcm. Sie kann mit »RAN- 
DOMIZE USR 3982« aufgerufen wer- 

.•COUNT... ,.RAND.< |ZX81) 

sind dasselbe wie .CONTI N U b!« 
und »RANDOMIZE«, erscheinen in 
ZXSI-Liyliiigs jedoch so, wie sie auf 
den Tasten stehen, also abgekurzt. 

I (Spectrum) 

emsprichi dem »**« auf dem ZX81. 
..DEF FN., (Spectrum! 

kann sehr oft durcti Benutzung von 
»VAL« beim ZX81, ersetzl werden. 

Ein Beispiel: 
DEF FN ; 3 !x)=x*K 
LETx = 10 
PRINT FN a(x) 
kann auf dem ZX81 so larmuliert 



»SCREEN$« (zeile,spalte). Die selbst- 
defmierten Grallkzeichen kijnnen 
damit ubrigens nicht abgefragt wer- 

Diese Funktion ist beim ZX81 et- 
was schwieriger zu realisieren. 
Derm hier wurde — um den sehr 
knappen Platz in der Grandversion 
zu sparen — ein variabler Bild- 
schirmspercfier angelegt (eigeni- 
lich genial, nicht?). Es gelit aber 

LET a$ = CHR$ (PEEK 16336+ 236* 

PEEK 16397 + 1 + Zeile + 33 * 

Spalte)) 

>.BIN« (Spectrum) 

Ist recht praktisch. Duale (=binare) 

Zahlen konnen damil direkt in den 

Spectrum eingegeben werden, Mit 

»PRINT BIN* 00001111 erhalt man IS 

als Ergebnis auf dem Bildschirm. 

Der ZX81-Benutzer mirB hierftlr ein 

kleines Programm benutzen (siehe 

Happy- Computer, Ausgabe 3/1384, 

Seite 39-71, Zahlen umwandlung), 

..PAUSE,. [Spectrum) 

ist zwar auf beiden Computern ver- 

fiigbar; allerdings sind auch hier 

wieder Unterschiede zu beachten: 

»PAUSE 0« wartct auf Tastendruck. 
»PAUSE Lanqei. ergibt erne Pause 



« rait »LANGEu gro- 
iisr-,; : ch:»FAUGEO«. 
hi., -2767 air.rjune- 
-il:".pr:cht die Pa;:se 
■ ". i J — 1 "! kir 'J;-:-! Spcc- 



nnen jederzeit 
:r Taste verktirzl 
das vermeiden, 
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sohleiie (FOR i - 1 TO 1000: NEXT i; 

Bei beiden Computern wirkt sich 
die Pause auf die Systemvariable 
«FRAMES« aus. In dieser Variable 
werden die FemsehbNdpr qeKiihlt 
SO je Sekunde. Beim Spectrum isi 
diese Variable drei Ryle lang. Wah- 
rend einer Pause wird nicht weiter- 
gezahlt. 

Beim ZX81 dagegen ist diese Va- 
riable zwei Byte lang und wird von 
dem Pause-Befehl benutzt. Bis 15 
wird auf Ugesetzl, Bit Obis 14 enlhal- 
ien die Lange der Pause. Xun wird 
ru; H nFRAMRS" 9 

isi. Nun wird Bit 13 wieder l gese^ 
Wenn also diese Systemvad allien 
miB au: erne Wej 



i. Die 



itfaMlt 



»POINT(Zeile.SpalteJ.. (Spect 

gibt an, ob ein Pixel Vorde: 
Hintergrundfarbe hat (1 odei 

Mogiichkeit fiir den ZX81 gel 



ict.iedlic?if: Acre-sen i:a.:. 



tese&d 
« INPUT 



hat zwei mdgliehe Wirlcirgen ie 
nachdem. wo es verwandt wird. 

Die erste Emsaizmdglichkeit ist 
das Abspeichem von Programmen 
mit automalischem Start in der 
durch »L1NE* angegebenen Zeite" 
»SAVF; K ■ naiTie'»LINE. zeile 
(Entgegen anderslautenden Anlet- 
tungen muB dieser Befehl nicht im 

Beim ZX81 kann ein Abspeichem 
mit automatischem Start nach dem 
Laden nur durch zwei Befehle im 
P-oqramm orreich; werden: 
SOU:.) SAVE "NAME" 
9010 GO TO ZE1LE 

Uie zweiie Verwendurigsmoglich- 
keit ist die Unteidruckung der An- 
fuhrungszeichen bei Zeichenketten- 
Eingaben. Damit wird gleichzeitig 
auch die Eingabe von »STOFn ver- 
hindert; derm die Anfiihrungszei- 
chen konnen nicht mehr mit »DELE- 
TE" entfernt werden: 
.INPUT L1NE« A$ 

Dies ist rait dem ZX8I ntcht mog- 
iich. 

»ATTR |ZeHe.Spalre).< ISpectrum) 
gibt den aktuelleti Farbwert an die- 
serPosition aus. Binar dargestelltist 
es na;:;; ieichl zu verstehen: 
7. Bit: Flash an: 1, aus: 128 
6. 3::; Bright an: 1, aus: U 64 
S.-3. Bit: Hintergrundfarbe 0-7 
2.0. Bit: Sclireibfarbe 0-7 
Der Wert wird dezimal ausgege- 



tes auf 0. Am Ende der Zeitmessung 
erhali man die Zeit in Sekunden mit 
>LET< t = (>PEEK< 2167? + 2o0* 
>PEEK< 236734 i>Ub':.iH*>PRF.K'< 
23674)/50. 

Wenn »BEER< Oder »PAUSE« be- 
nutzt werden, wird die Variable 
nichtweiter erhdht. Die Zeit muB al- 
so addiert werden. 
Beim ZX81 umfaBt diese Variable 
muywciBvieundiiegtindenAdres- 
sen 16436 bis \iV-ol. Alicrdings star- 
tel sie mit dem Wort 25o in beiden 
Adressen und wird jede %. Sekunde 
henrntergezahlt. Hier muB beim 
Start der Zeitmessang also 2B3s(atl0 
gePOKEt werden . Die Zeit Li Sekun- 
den email mar: dann durch >LET 
T= (65S3S (PEEK 16436 ■ 2-66* 
■EEK : )367))/ ! j0 

Der Befehl »PAUSE« verandert 
diese Vanabie. 

Auf beiden Coiuuuiern wird nicht 
weitergo-ahk. wahrend Programme 
geladen Oder gespeichert werden. 
Vers ch fed ene Systemvatiablen. die 
benutzt vuefden konnen 

»LASTK« — enthalt den Code der zu- 
letzt gedriickten Taste. 16431 beim 



Wert groBer als 1 »POKEt«, wird die- 
se Me;.-!i.ni~ imterd.ruckt. 
uSEEDn - erhalt durch uRANDOMI- 
ZE« beziehungsweise jRAND* ei- 
nen Wert und wird von «RND« be- 
nutzt. .RANDOMIZE" 10 entspridil 
»POKKSEED« 10. 16434 beim ZX81, 
23670 be:m Spectrum, zwei Byte. 
.DKCC. enlliall u:e Ad resse der 
letzten »PRINT«-Posrtion im Bild- 
sctiiimspeieher, 16398 beim ZX81, 
23684 beim Spectrum, zwei Byte; 
die Schreibposinor. kami mit »PO- 
KF« verso hc-.oe:; werden, 
»RAMTOP« - Ende des fur »Basic* 
nutzbaren Speichers. 16333 beim 
ZX81, 23730 beim Spectrum, zwei 
Byre. Beim ZX31 wird die erste nicht 
mehr ansprechbare Adresse ge- 
speichert, beirn Spectrum die letzte 
ansprechbare Adresse. 
»CHARS« - ist um 256 niedriger als 
die Startadresse des Zeichensatzes 
beim Spectrum, Adresse 23606, 
zwei Byte; kann gePOKEt werden, 
um einen im »RAM«. gespeichert en 
Zeichensatz zu benutzen, Oder 
auch, um ein Programm unleserlich 
zu macben. 
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Aber dies sind die wichtigsten, die 
offer schon einmal auftauchen und 
durchaus Kopfschmerzen hinte das- 
was sie machen und wie sie umzu- 

Wenn start J.PRINT ' 'M aus irqend- 
einem Grund .PRINT CHR$ 38 (65> 
benutztwird, braucht man eine Ta- 
belle des Zeichensatzes, urn das 
Prograrnm anpassen zu koirnen. 
Der Zeichensatz des 2X81 ist vollig 
unkonventionell, der Spectrum be- 
nutzt weitgehend den »ASCLV 
Code. 

Der »ASCIl«-Code speichert nur 
sieben Bits, kann also mil Codes 
tiber 127 nichts rnehr anfangen. Das 
ist wesentlich bei der Datenfemii- 
bertragung liber Interface 1 oder 
eine andere RS232-Schnittstelle 
(siehe auch Interface 1-Praxis). 
Zu guter Letzt noch einige Hinweise 
zum Umschreiben von Program- 
men anderer Computer, die mit 
Microsoft-! Basict-Dialekten arbei- 

Das Sinclair-. Basic* entspricht 
diesem weitgehend, es gibt jedoch 
einige Unterschiede, die beachtet 
wcrdw sollten. 

Der »LETVBefehl ist bei den rnei- 
sten anderen Computern opiional, 
das heifit, es kann weggelassen 
werden. Ebenso kann oft hinier 
»THEN« das "GOTO entfallen. 

Ernige Computer vcrlangen kei- 
ne Zwischenraume hinter den Be- 
fehlen, bei anderon miissen diese 
sein, 

Keine »Kleinigkeiten<( 



>LEFT<S(narne der zeichenketre. 
anzahl der zeichen) crgibt die er- 
sten Zeichen, 

>RIGHT<$(name der zeichenkel- 
te, anzahl der zeichen) ergibt die 
ie;z!eu Zeichen einer Kette. 

Ein Beispiel: 
LET A^'KATZFNFUTTER 1 ' 
PRINT AS (TO 6) ergibt den Bild- 
sohmuausdruck »KATZEN«, PRINT 
ASi'7TG: erniei -PUTTER*. 
(Der erste beziehungsweise zweite 



in Mkv.s.I -B.-ic- ,ne!r/ da;j so 

PRINT MID$(A$,1,6) fur *KATZEN« 
oder auch PRINT LEFTSfAE.6) 
PRINT MiD$(AS,7.6) oder RIGHT 
$(A$,6} fur »FUTTER« 

Dies sind die wichtigsten Unter- 
schiede. Es witrde etwas weit fiih- 
ren, hier alle Femheiten aufeuzah- 
len; besonders die diversen Steuer- 
zeichen. die fiir die Cursor- 
Positionierung oder »CLS« etc. ver- 
wandl werden. Em Teil davon ist aus 
der Zeichensatz-Tabelle zu enfneh- 

Als AbschluG noch ein Prograrnm 
fiir Spectrum-Besitzer, die ZX8I- 
Programme laden mochten. 

Tips fur Umsteiger 

Fiir die «Umsleiger« insbosonde 
re, aber auch fur andere ist in die- 
sem Zusammenhang natiiilich ein 
Prograrnm sehr interessant. das 
ZXai-Programme fur den Spectrum 
lesbar macht. 

Ich habe das Prograrnm .LOAD 
ZX81 Program into Spectrin™ aus- 
probiert. Besonders htibsch ist die 



rekft 



siDi- 
;nd aus funf Zei- 

lat man kerne Kor- 

mehr. Das Pro- 
edet sich. 
urogramm sitzt un- 
hirmspeicher, urn 
Speicherplatz zu 
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Jnter Um- 


standen ist es 






s den Ton- 


kopt des Rec 


111"): 


;is net 


emzuslei- 


len.) Nachde: 




an die 




gernaB den 


Ai-..- 






stelft hat, kai 




..rr. doi 


i Ladevor 




SPA' 


^E-Tast 


e starten, 


Eserscheir: 


tde' 


•Hinwe 




wenn dahmte 




iName 




wird das Proi 




,m gel. 


den. 


Das Progra 




erkenr 





Absicht hat, mehrere Programme zu 


Es bestehl auch die ivioaliolikoti, 


dn.BKi fader iiaah SAVE) ei 




Piorjramm zu laden, Wenn i 




ansehen mochte, was denn 


nun da- 


bei herausgekommen ist. k 


arm man 


auch .zu Basic zuriick.. Da 




allerdings das Ubersetzi 






is;-;[i:;"k: 






dung* des Computers. Dei 


moch ist 


das ZXSl-Prugrciiui nudi 




cher und kann nun nach He: 


"zen,=!'.i=1 


angepaBt werden. 




Einige Befehle werdei 




beim Laden vom Ladepr 




geandert FAST und SLOW 








Befehle werden gleich err 


etz: Da- 



bei vveider. V .-..-'i u;. .p.jarairmo 
in REM-Zeilen erkannt und nicht 

Wenn ich auch mit recht vielen La- 
delehiern zu kampten halte (bei 
wirklicn outen Aufnahmen), so ist 
doch dieses Vertahren sicherlich 
schneller und einfacher als das An- 
dem der Programme »zu FuB« mil 
,-insc':ilioi--'(ii;:n Eintippen. 

Die Erklarung des Programms ist 
zwar etwas sehr kloin qoschriohon, 
auch die Schriftqualitat laflt noch 
Wimsche of fen, doch inhaltlich 
reicht sie aus, zunial der Umgang 
diesem Prograrnm sehr einfach 



ist, 



(Erika Holscher) 
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za^aot***? 



Wer sich mit der Programmierung von Com- 
putern beschaftigt, stoUt irgendwann auf 
Hexadezimal- und Dualzahlen (Binarzahlen) 
— spatestens dann, wenn er Maschinen- 
code lernen will. Darnrt taucht auch das 
Problem auf, eine Hex-Zahl in eine Dez- 
oder Bin-Zahl umzuwandeln oder auch 
umgekehrt. 



Dio dezimale 13 w 



II 



Rest A (11| 



roblem mehr. 
adt^tmaklar- 



Aus der dezimalen 49033 iat die 
hexaaezimale AF89 geworden. 
Auch dieses Verfahren laflt sich 
leicht in em Programm umsetzen. 

Es bleibl noch die Umwandhmg 
von Hexadezimalzahlen in Dualzah- 
len Lint] umgokotirr. Dies geht be- 
ldei:-; s?:nfsch. v/ed die Basis des 



He; 



rBai 



tal- 



iuchsiaben de:; Alp'iahe 



nil 1000 1001 



InderTabHLlesleVdieZsh'. 
Sie wad vol _:n::ere.~ Gehirn 
maiisc'".* ?i^;-iu:i.eiK3e:'i-ivi >i.: ; 
6x1000 t 4J.-100 + 3x10 + lxl. 

DasBmarsysiem k.iilciOL'iierl 



rmiB i 



Das Dualsystem hat die Basis 2 (bi- 
nar dargesiellt: :0), and vvir bra'j- 
chenzwei Ziflcns. In die:;t!i Tabelie 
stent jetzt die B ma r^hl 10;' ihrdezi- 
inaier Wert ist 



nHe> 



1x8 i 0x4 + 1x2 + lxl = 



len zu verwandeln. Ein sehr einfa- 
f.'her i.i :id :irivot^"'ler Wag ir>" 
die wiederholte Division der Dezi- 

raalzahl dure Basin ■ ; ■: » .i 

siems«, in unserem Fall also durch 2 
beziehungsweise 16. Die Resle er- 
geben die Zahl im Zielsystem, aller- 
dinga von hinten. 



kiinstler zu sein - die Werte im Kopf 
umrechnen. Zu diesem Artikel wur- 
de in der Happy-Computer 9/84 auf 
den Seiten 69 bis 71 ein Urnwand- 
^nssproqiamn: veioffentlicht, Da- 
mii kann der Benutzerjede Zahl bis 
65S3S in alien drei Systemen neben- 
einander darstellen, in welcher 
:'on:: e: ;ne a j.~:j c-nqegeben hat. 
(Erika Hiilndirr) 
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ZumAbheben= 



BUS 



■ r^nmnfurden 



Nur Fliegen ist schoner. Flugsimulationen 
sind die grolSen Renner auf dem Spiele- 
Markt. Klar, dafS sich mittlerweile fur den 
Spectrum einiges an Software angehauft 
hat. Wir haben uns die gesammejten Werke 
fur verhinderte Piloten mal genauer 
angesehen. 
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ke-uifeii A:i:;D.L'-Kjli :-r. 

eihebt, haoen ■wr 

Programme auf Her 

priift. Biigeln Sie also Ihren Fall- 

wagen sich gleich an die Landau 
heran: Em Crash jagt den ar 
Wesentlich aufschluBreichei 
tet sich da em Start-Manover 
dem sich der angehende Flu 
tan mit der umfangreichen 
veistandlich englischen) 
nungsanleitung vertraut g 
Erwardevor:.;i.c;yirr.jlijicr,doifui ha 1 ., dari a.bgehoben ward. 

deri Spectrum aji" der. Marki karri, niichst vj'ini die Maschine 1; 



Auswahl: Start, Landungc 
"J- ,', u: lj.1-.ii L-.u i liegnmt mitten iii 
prun. Hugem cms? n.so imra T-.W , -ir' masochistiache 

sch.im unci slelfc:; Sie das Handle:! ;^';:.' ; n ' L 
ein: Denn jetzt gehen wir auf eir 
I Iob;n::ug mi", dem Com:cu:er. 

Der Pionier: 
Psion Flugsimulator 
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'■tfUt/m\' 






* tmrnm 






- 

U 1 I .... 1 


.. ■■ 



Der Killer: Night Gunner 



"Night Gunner* i 
rtrdiger Fall; Mai 

I Action halten — e. 



kou: 



. Bei 



I:iiuptf,u-.ve:ii::e;k hegt. nrer bei del 
Belierrschiiriri (lev Fiille von Anzei 
gen und Ste 



fine Kolleqen in don Luflen wie 
| wild abdonnert. Elwas simulatoren- 
ift mutet er dank einiger Anzeigen 
l: Flughbha, Scaadensmeldungen 
c nvassen boir" Acuuii-SpektasA"! 
jar beachtet werden, sind aber ei- 
I gentlich nur schmiickendes Bei- 



7 im dichten Nebel probie- 
beim Anfangei aber sehr 
it einem gepilegten Abslurs: 
s Endc findel. 
und schmerzlos gesagt: 
Pu--'t- is! ein Kniiller. Ein 
nelles Piogramm But Sp.an- 
id ALuio.sphare. Das Flug- 
. = _.3giert sear srhnell aut die 
n des eigenen EingaU-jn -.k.> :; Spielers, so da£ der 
tandort des finsteien rea'asti.sehere >,P:?oii« gegeniiber 
leben wird. Hier be- .Fighrot Pilol- leyolracht gemach- 
. i;"k \: i- : :i!^.-;r.i.: ■.:::■.-; I:;-;: w.rV: lunkamot' mit Niveau. 



s Landebah- 



lisch. aber au e: .-' -i -nnend und 
unierhaKi:-. 7. r ;>c- x miisser, Sio 
Ihr Flugzeug zum Gegner hin mand- 
verieren, was dieser durch seinen 
unberechenbaren Kurs erschwert. 



Der Langweiler: Heathrow 



..A L Jiei!s,.=Moi«lo^ien 
■auyreiche Ec.ke do 



Baliereien zu 



Der Rasante: Fighter Pilot 

Das Programm »Fighter Pilot« ist 
me sear geluiigene Verknupl'ijiiy 
;n fiimnlnf-.on und fieri ionspiel. oh- 
3 dabei zu einei wiisten Ballerei 
i uNight Gunner«. Das 





l Steuerfunktionen 








werksielhgen. Em 


Menu erlaubt d 


le Wahl zwischen 




illug-Traimngoder 


den gnadenlosei 


"i iCombat-Mode«. 


Ganz Verwegene 


konneri auch eine 



schmuckloses Radarblld Das Spiel 
id kompliiert. die englische Anlei- 
tung noch komplizierter und SpaB 
ciiacht os audi kemon. Fazit: Lieber 
nicht. 

Wer nach noch »H6herem« strebt, 
als liber den Wolken zu schweben, 
schwenkt in die Erdumlaufbann ein, 
um mil dem sSpace Shuttle™ einen 



— 



S pectrum 







Jumbo in Heath ro 



defekten Satellites su bergen. Die te ich, wie drauBen die woLBan 

Anleitung zu cliescni P-'ogrdmni isl, Wo^kc;)-.:: .^:^: :...■: ----- ur.d sclueB- 

vhc gs Rich fur o'.ne FAigsiryiuialion : .ich oei &liw;'!:>:c dot; Wedt.lls Fij/.z 

gehdrt, el mi 1 i i~ h i luliili h machen. Nun darf ich erfreulicher- 



zu Ende — in Bile:; Kliiqpnasen. De 
nuizt es auch nichts, daB os fiir ge 
mo^iurle Abaci; nine Pi.mkte qibi 



Malice Aurorxiot dai:emd in die Ma- 
Aber 
■■■■leile-cf rlaascr sic'r; die Spieler, die 
mit dem ublichen Ablaut soldier Si- 
mulationen nichts anfangen konn- 
ten, von der Punkteklauberei begei- 



Der Diistere: Nightflite II 

Einer der wenigen Simulatoren, 



ei astTonomischen Einla- 
ugzeug soil — crash fro i 
irten und durch die Liifte 



loten durchgefuhrt. Leicht frustriert 
ob dieser Bevormundung, beobach- 



Spectrum 




Die Anordnung dei Instruments 

ist recht ubersichtlich geraten und 

I das Menu erlaubt erne HandvollVa- 

I riationen. Und bei siner Bruchlan- 

f dung wird der Pilot ausfuhr'uch in- 

I formieit, was zum u:ienredid:<m 

I Bodenkontakt fiihrte. »Nightflite II« 

I leidet unter der mickrigen Grafik, 

bielot fiber Besilzem ernes 16-KByte- 

I Spectrumsdurchausanspieehendo 

I Flugunterhallur.g. Im Veraleich ziim 

»Psion« oder »Fighler Pilot* fehlt es 

I aber an Atmosphare und dem rech- 

nBiB. 

Der Schlaffi: Airliner 



Macbtm wir ess Ki:r;: Lind schmerz- 
los: »Airliner« bietet selbst fur 16 
I KByle recht wenig. Die Grafik 
I scheint aus der Sfeinseit der Com- 
I putersoitware zu atarnmen und die 
Bceinflussu:ig von aciten des Spie- 
1 lersistdurftig, FazihEsgibtnurbes- 



Der Komplizterte: 
Air Traffic Control 



kein reinrassiger Flugsimulator, 
sondem vielniek: em St rn teg.es i.;ii;] 
fur den geduldigen Denker. Ahnlich 
wie bei »Heathrow« schlupft der 
Spieler in d^e verantwortungsvolle 
Rolle eines Fluglotsen, der den em- 
sigen Luftverkehr koordiniert, Der 
Kssse:te begen ein glucklicherwei- 
se ausfiihrliches Handbuch und — 
zu memer groBen Freude — eine 
Schablone bei, die liber die 
Specrrum-Tastamr gelegt wird. Die- 



fchabk 



chen" t 






Ubersicht 

Komnian do-Bel e gunge n bei. Efn 
voibildliches Plus, das allerdings 



Legen Sie nun die Sicherheitsgur- 
te wieder an, denn wir beenden ui 
seren hirmnlischen Trip in die Welt 
der Flugppjur ( ,:::i:ie rnit einer 1 



nlles Gu;;oHr'i.i;.;-. : iiajrie ist fall" 

schwer, ein eindeutiges Faaii zu 

hen. Aber wenn Sie mich fragen 
wiirden, welche Kassetten ich n " 
a.ueiiieeinsarnelnselnehmenwi 
de. hieBe die Wahl j.Psion« ui 
» Fighter Pilot*. Die meisten anderen 
Programme sind auch ihr Geld werl. 
worm es auch die erne oder andere 



wii go 



cher Fortschritt, ftir rneinen Ge 
schmack iedoch nicht allzu aufre 
gend und auf Dauer einschla 



EINFACH SUPER! 



Entdecken Sie jetzt mit 
»Happy-Computer« 
die Welt der , . 
Heimcomputer! 



Tips und inter 
mationen Obe. _... 

mputer-Syste 

-4*. »Happy-Computer« 

t und bring! 
fur Sie die Listings der 
schonsten Heimcomputer- 
Programme 



zeigt Software- 
! pfifflge 







W! 



Madd lechnik 

" HagAktieng " 
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Das Interface 1 



Bererts bevor es im Handel erhaltlich war, 
hat es viele Spekulationen iiber das Interface 
1 gegeben. Als es dann erschien, gab es ei- 
ne Reihe von lestberichten, aber nur wenig 
Information iiber Technik und Benutzung des 
Interfaces. Es ist auch viel Falsches ge- 
schrieben worden. In Happy-Computer (Marz 
1984, Serte 18 ff} wird zwar der Microdrive 
ausfuhrlich besprochen, iiber das Interface 1 
jedoch wird wenig gesagt. Das mochte ich 
an dieser Stelle nachholen. 



Hardware und 
Maschinencode 




Zuerst mochte ich etwas zum Auf- 
beu den Interface J saqen. Hud \ 
zeigt das Innenleben des feter- 
face. Man sieht den ULA-Chip und, 
teilweise durch den Bus-AnschluB 



iqt dai <=m L- - I 

i soil (cnglisch: instruc 
nicht etwa Daten. 

Das Interface-ROM 



. Innenleben des ZX-ln 



verdecld. links dahinter das neue 
ROM. jawoh], das Interface 1 enthalt 
ein 8-KByte-ROM, so daB dei Spec- 
trum mit Interface iiber stolze 24 
KByte ROM verftigt. 



rum-ROM 



i I angeschlos- 
;chen den bei- 
m- und herge- 



'■'•i x-',t!system des Spec- 
.ind herschaliet, miissen 
[ MciKchinensprache be- 
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found und so weiter). 

Der "instruction letch* auf die 
Adresse 08H bewirkt die Umschnl- 
tung auf das neue ROM. Das heiBt, 
warm immer ein Fehler auftritt, wird 
auf das neue ROM umgeschaltet. 
Was das neue ROM dann machl, 
hangt von dem Wert in dem Daten- 
byte nach »RSTQ8« ab. 



Der DatenfluR 

Die Werte 0011 bis 1AH (die alien 
Fehlermekjiingeri orine o.k.) bewir- 
ken, da6 im neuen ROM nochmals 
iiberpruftwird, ob der Befell! [oM :n 
Ordnung ist. Dadurch werden die 
Befehle MOVE, ERASE, CAT, FOR- 
MAT jetztzumLeben er.veckibczie- 
hung;;wei;;e eungo Befehle (LOAD, 
PRINT. INPUT MERGE, SAVE, 
OPEN*, CLOSE#) erweiteri und 
erganzt. 

Dor Wert FFH bringt die neue 
Meldung "Program finished". Dar- 
uber hinaus produziert das neue 
ROM aucb noch neue Fehlermel- 
dungen, wenn zui n beiapiel die neu- 
en Befehle falsch benutzt werden 
(Interface 1-Handbuch, Anhang 5). 

Irs'eressant sind die Werte iBH bis 
31H fur das Datenbyte. Damit kon- 
nen qezieil neue P. . ,:. i. ,' ; en 



Ubersicht iiber d 
Die Werte 33H 
Fehlermeldung » 
das heiBt, falschi 
RST08. Der Wert 
Research Ltd. re: 



Die RS232-Schn(ttstelle 

UberdieBenutzungderMicrodri 
■as und des Netzweikes gibL da; 











TAKT 'I 1 *r 




»„. " 




CONTROL jgngs;.^ 




'° S A1B 




CONTROL JhILT-. 


17 
IS 
24 


7 to 15 DO 
(except 11) D7 




JMREO* 

UN:, i , . )r ''.'. ■- 
CONTROL )JW * "■ 


27 

?,2 

29 


11 













Bild 2. Die Anschlu&beleguny des ZSO-Mikroproze 



gehangl. 

Das ist alles noch cinzusehen. 
Komplett wird die Vorwinung, wenn 
man sich die Beiegung der Sleeker 
ansieht. Ilm uns da Klarheit zu ver- 
schafien, miisscn wir rome anfan- 



Data Communica- 
tion Equipment, das 

. : :i:id Rt:;:hner,Mo- 
derosund so wei'.er 
Data Terminal 
Equipment, das 
. . "vinals, 
Diucker und s 



Dna kin 



3 V und -1 



aber so rich- 



ischen —3 V und 

+ 3 V ist nicht definiert. 

Das ist dann auch sehon die Hard- 
ware der Standard-Schmttstelle. 
DaB die Spectrum-Schriittstelle mit 
ihrem 9poligen Sleeker davon ab- 
weicht, ist offensichtlich. 

Jetzt komnit die enlscheidende 
Frage; Wie wird etwas an den Spec- 
trum iiber die RS232 angeschlos- 
sen? DazumuB man wissen. was der 
Spectrum mit der Schmdsielie 
macht. 

Die Anschliisse des Spectrums 
smd: 



Aber es gibt viele Ausnahmen. 
Man mufi fast immer das Handbuch 
zu Rate Ziehen, um zu enischeiden, 
was man hat. Bild 5 zeigt die wichtig- 
sten Anschliisse einer RS332-- 
KchmtisteUe. Die Pm-Bezeichnun- 



PIN 2 


Daten-Eingang (TX 




data) 


PIN 3 


Daten-Ausgang (RX 




data) 


PIN 4 


DTR-Eingang. Nur 








»DTR HIGH* ist. 




kann der Spectrum 




senden. Wenn DTR 




hLOWb ist, dann 




sendet der Spec- 




trum nicht. 
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COMPONENT SIDE g^ m 

A15A13D7 SLOTD0D1 D2DB D5DSD.; fJvT M!;i :■:...■ W'77?- : - 



mm- 




Wie man aus Vergleich dieser An- 
gaben mii Bild 6 sieht, 1st der Spec- 
trum ein Gerat der Gruppe DCE. 

Jetzt wollen wir als einfache 
DbuncT ein Kab© 



rsiellen 



bii 



geschirmtes Kabel und 
zwei 9poIige D-Stecker. Bild 6 zeigt. 
wie die Ver bind un gen gelotet wer- 
den miissen. Da man den Eingang 
des einen Spectrum mil dem Aus- 
gang des anderen verbinden rnuB. 
kreuzen sic!: die Leitungen. 

Haben wir das Kabel gelotet, kdn- 
nen die beiden Computer verbun- 
den werden; dann wird ein »be- 
Kanal geoffnet, und die Programme 
kdnnen, wie im Handbuch beschrie- 
ben, ausgeia^scat ^'eice,; 

Komplizien wird ea, wenn wir den 
Spectrum mit einem anderen Gerat, 
zurn Beispiel Drucker, Modem Oder 
gar einem anderen Computer ver- 
binden wollen. Dazu gibt es von 
Sinclair ein spezielles Kabel. Bild 7 
zeigt die Verdrahtung, Das Sinclair- 
Kabel sollte siclierU-h i;: don r.ei- 
sten Fallen richtig sein, wo ein 
Drucker oder Terminal angeschlos- 
sen werden soil. Tn einigen Fallen 



wonnen werden, rnuB dorm ein Ka- 
bel gemacht werden. Wichtig ist, 
da£ man sich daruber klar ist, daB 
es kein Kabel gibt, welches immer 
funktioniert. 

Am Beispiel des Druckers Facit 
4510 mochte ich veisuchen klarzu- 
machen. was zu tun ist. Bild 8 zeigt 
die Anschluflbeleoung der 
RS232-Schr>ili.';tel!e des Druckers. 
wie sie im Handbuch stehr. Auch die 
Pfeile stehen so im Handbuch (lei- 
der sind nicht alle Handbiicher so 
deuth'chj. 

Benutzt man das ainclair-Kabel 
und sind alle Parameter am Drucker 
(zum Beispiel Paritat, Zahl der Stop- 
bits, Baudrate) richtig gesetzi, so 



reit ist oder nicht. Der Spe-rum 
merkt davon nichts, da PIN 19 nicht 
angeschlossen ist. Es kdnnen also 
Zeichen verloren gehen, wenn der 
Drucker Busy signahsiert, der Spec- 
trum aber welter sendet. Man sollte 
deshalb ein Kabel wie in Bild 9 ver- 
wenden. 



P-rotokoll fur das Handshaking be- 
Hard ware-Frotokcll, wenn diebet 
den Gerate iiber spezielle Leitun- 
gen durch Sia^alpeoel avEeinen.ob 
sie bereit sind oder nicht.) Bei einem 
Software-Protokoll werden spezielie 
Zeichen liber die DatonieiLanq ge- 
schiclc:. Die wichhcjslen sind: 



XON/XO- 




FF 


Es werden die 




ASCIl-ZeichenDCI 




und DC3 fiii rea^ 




dy/busy benutzt. 


ETX/ACK 






chen ETX und ACK 




benutzt. 


(Siehe Bile 


10 fur die ASCII- 


Kontrollzeichen.) 



Bei einem Software-Protokoll muB 
lei Programmierer fur das Senden 

1e:'-0;!i f ro l-f.'cdei: «n der /idiiiijea 
■telle Sorge tragon. AuBerdem muB 
; r naturhch. falls die Kontroll-Codes 
impfangen werden, fur die richtige 
tenktior: des Proqre.mms sorgen. 
.)ie Detail.--; hierzii wurden bei wei- 
sm den Umfang dieses Artikels 
prengen. 

(R.W. Gerhr.q} 



KS232 Output 

Dracker-Ausgsbe (wie ICH, nur Slrom 3) 

Tasiatur-Tesl lob Taste geditickt) 

Miciodii w Routine:-, ;■;:" ArLSucn, Ln»cr ; , :ri a ^-1 
Oflnen ur i 1 hanals 

E..7-,;_>f;maai u.uri Ik'r.d^Ti «j,-,,:. : , N-;;:z-.vnrfr-Pal;e;;; 
Aiiiagen der nroen Sysicmrariableii 
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CU*: lu SuiiJ (C'FS) 
D-i!=i Sel KujiJy (DSR) 
Kyiidl Giuuml !j;'j[LaLeiJe 
D^dTijnmiiulliornivtOim 



7 


bit ASCII C 


,se Ttfei 




Kontro 


L zaich*n: 






a NUL 


null 






1 SOH 


start of he 






S 3TK 


start of te 






3 ETX 


end of nut 






4 EOT 


tnd of tran 


mission 




S END 


en^yi r« 






3 RCK 


acknow Ledge 






7 BEL 








8 BS 


bicUpac* 






9 MT 


horizontal 


tabulation 




lfi LF 


Line feed 






ii yr 


vertical t a 


bU Lation 




12 FF 


form feed 






13 cn 


carriage re 






14- 50 








IS 51 


Shift in 






IS DLE 


data tins e 






17 DC1 


device cont 


ro I 1 




IS OCE 


device cont 


roi a 




13 DCS 


devi ce cont 


roi 3 




3<& DC4 


device cont 


rot 4 




21 NRK 


negative ac 


Knou ledge 




as SYN 




idle 




33 ETB 


end of tran 


smission b 


tOCK 


34 CRN 








as em 


end of medi 


um 




Sfi SUB 


substi tu te 






S7 esc 


escape 






23 FS 


File sepera 


tor 




29 GS 


group seper 


ator 




38 R5 


record sepe 


rator 




31 US 


unit separator 




CruUb 


ire Zeichtn 


iZX-3pectr 


urn) : 




2 


3 4 


s © 


7 


e 




* 


p £ 


p 






1 B 


a 


q 


a 




a s 






3 




3 C 


5 C 




4 


$ 


4 D 


T d 


t 


5 




5 £ 










e F 
















S 




a m 






9 




9 I 






R 






2 J 




B 






I k 


i 






< L 






D 






J n 


> 


E 
F 


' 


? 





© 




d 10. Die 32 ASCII-Kantioll-Zeichen und die ASCII-Codetafe] fi 
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llNTERfACE © 

Nachdem sich R.W. Gerling hauptsachlich 
mit der Theorie beschaftigt hat, hier nun 
etwas fur die praktische Arbeit mrt der 
RS232-Schnrttstelle, dem Microdrive 
und Tasword auf Cartridge. 



ich die Frage beantworten Det Spe. 

laBte, iiber welche Schnittstel- schiosse 

ich meinen Drucker ansteu- Mikrodrh 

)lle, entschied ich mich fur ei- Interface 



ichnittstelle kaufen 



- Das Kabel eine 

Schnittstelle ist in der Lange sehr 
begrenzt und darnii auch der Ab- 
stand Computer — Drucker. Ein 
RK^oil-Ktibe] kann aber sehr lang 



c,h lcn bei FORMAT den » 
den »t*-Kanal anspreche. 
20 OPEN #3;"t" 

Strom 3 fur den »t«-Kana! offnen. 
Strom 3 deshalb, weii er LLiST und 
LPRINT verarbeitet. Dies sind Kiir 
zel fur LIST #3; und PRINT #3;. 
3COPEN #4;' : b" 

Sirum 4 tii i biiiriron Datenrransfer 




namlich auf das READY-Signal (er- 
kennbaram scluva r?.eri Biidr,f;hun: 
rand). 

Wer einen Norma lpapier-Druk- 
ker hat. mochte siclier geme auch 



ler senden als der Drucker schrei- 
be:i (19200 Baud geht prima, der 
Drucker schreibt aber nur 640 Baud 



rs; 



icii bo 



;wei,d K : ■■■.erden— kaufte 
:. Beide 0'.?r : i:e arbeiier: 
einwandfrei, nachdem die richtige 
Kabciverbindung hergestellt war. 
Mein Dracker 1st «j- Magrasoric 
PDH 8, tauglich 2u Epson FX80, je- 



len (Perforation). 

Druckausgabe 

iiber die 

RS232-Schnittstelle 



docri y. 
chen. 



s anderen Stei 



h-rl IJeshi.lb I :;-:;>;■ ;cr. kir jlii-Ii ■■..:!:, 

Mim-Drucker Imtiahsierungspro- 
ii.'iimni geschriebsn: 
»10 FORMAT "!";9600« 

Baudrate entsprechend der 
Druckeremstellung fesflegen. Inter- 
face I kann alle benbtigten Daten 
senden und empfangen. Es ist egal, 
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Das Pro< 

... V-. . : ... 



VV-IK 



am Piogrammanfang auf leden Fall 

CLOSE # emsetaes, & gib; namlich 
einel-ehlermeldung, wennmanver- 
sucht, einen bereits geoftneten 
Strom zu offnen ein Sohliefien ernes 
nichi geoffneten Stroms fuhrt der 
Compiler jedoch aus. 

Wicmi-:- ist jjcn, dal?, der Drucker 
ONLINE ist. Der Computer wartet 



passenden Steuercodes so ge- 

sohrieben, daB ich sie mit einem 
kurzen Basic-Tfeil immer MERGEn 
kann. Allerdings habe ich sie auf 
Strom 4 (siehe uben) qeiegi: POKE 
RAMTOP -. 3, 4. damn ich die Stro- 
me nicfct umschalten muB (Listing 1). 
In Zeile 9810 muB fur ]fach/4fach- 
Copy ein Wert entsprechend der 
Beschreibung eingegeben werden. 
Zeile 9830 muB fur den 16-KEyte- 



L'^.i rc"tT";uiarv;jrschi!l: 
Hand durchgefj-irt ■ 
fun knoine: i horvonay 



Spectrum 



PRAXIS 




te erreicht, oft 98 KByte, jeweils 
orston AnJauf. 'Jbngens kann ein 
Programm mit Lade routine, Bild und 
so weiter durchaus langer sein als 
48 KByte. Das heifit also, daB audi 
boi solchen Werten niriil unbedinqt 
zwei voile Programme aul" em Cart- 

Eine andeie Anwendung ist fiir 
Microdrive etwas interessanter als 
das Speichern von Spielen; Datei- 
verarbeitung. Es gibt durchaus ei- 
nen Weg, nicht die ganze Datei la- 



de-"' und 3peic;ie:i::i r..i :: 
rrmrrit eir;fach die Num 
-or.:;s-zes mit Hilfe d 
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Cartridge SAVEn, jeweils eins ladt 
dann das nachste angewahlte, So 
verfahren aiich die ngroBen* Com- 
puterprograrnme. Dies hai vor allem 
den Vorteil, daB maximal ein Caten- 
ate verloren gehen kann. Auf diese 
Weise kann auch im Spectrum ein 
Programm laufen, das wirklich pro- 
fessionelle Moglichkeiien bietet. 

Das LosungspriiKip ist zwar ein- 
fach, die Ausfuhrung braucht je- 
doch einige Zeit Deswegen tst es 
noch mcht fertig Das Microdrive 

ware auch ir 






iahl 



:Er,Ns 



verarbeiten r 
Bildschirmspeicher braucht 6912 
Bytes. Auf ein Cartridge 95 KByte ( = 
97280 Bytes) passen dann ohne Pro- 
gramm 14 Bilder. Nicht schlecht 
oder? 

TrotzhaufigeraGebrauch(= dau- 
emd) ist bei mil noch kern Cartridge 
defekt. (Aber mein Computer wird 
auch nicht heiB; und die Or.ginalta- 

Schrift ist noch drauf. Und das trotz 
einem Jahr Dauerbetrieb, dfterem 
Her unterf alien und diversen Kat- 
zen-Spaziergangen. Ich weiB nicht, 
woran es hegt.) 

Es gibt Computer-Benutzer. die 
mehr von Floppys halten. Nun, eine 
Floppy fur den Spectrum kostet 
auch einen guten Tausender. Auf ei- 
ne Diskette geht mehr drauf, das 
stimmt. Aber wenn man den Plate 
nicht fur Spiele, sondem — so wie 
ich — fur Arbeitsprogramme und fe- 
ste Programmteile (Subroutinen)be- 
nutzt, braucht es seine Zeit, bis ein 
Cartridge voll ist. Warm fangt der 
Punkt an. wo Floppys — abgesehen 
von dem bei Sekunden nun wirklich 
genn.-rer. Zeitjr.rers-rr.ed - kos'en- 



1 Laufwerk: 1200 Mark, 1 Drive: 
BOO Mark, 1 Diskette 200 K: 5 Mark, 
1 Cartridge (93 k): 19,50 Mark. Bei 20 
Programmer] brau-he ich maximal 
960 KByte Platz. Das sind 11 Cartrid- 
ges oder 5 DiskeLLen. 



Verhalrnis zum 
Preisunterschied 
steht der Lei- 
stungsunter- 
schied nicht. 

Noch ist keine 
Software auf Cart- 
ridge erhaltlich. 
Sollten aber ge- 
niigend Leute 
das Microdrive 
haben, kommt si- 
cher auch das. 
Bis dahin gibt es 
ein Programm 
(TRANS EX- 
PRESS), das das 

Kopieren von Kassette zum Micro 
drive und umgekehrt erlauben soil 
Ich habe es zunachst mit meinen ei 
gone:; Progromme:': versucht (Sii'N 
SO). .Das gino <j-n?. :nn (rneiatonsl 
D^e SAVE- und LOAD -Betel; :e wi:r 



LET a=USR 6433.0: 



Nu 



akoi 



l, dauen cs 
} Leute, die 
Htcn berijt- 
sinen Spec- 
;nne, die lh- 
waltung mil 



PEN tt3; "b 
11 CLS 

D 20 

15 POKE 23609, Z: CLEAR 31999: 
LET q$="": GO SUB 4000: LOAD #"m 
";l;"TAS 2"C0DE : CLS : LET a=US 
R 59081: GO TO 10 



hProl 



Von Microdrive zu Kassette (BACK 
UP-Kopie) machte ahnliche Schwie- 
rigkeiten. Hier werden SAVE und 
LOAD nicht geandert. Ala Nachteil 
ernpfinde ich, daB dieses Pro- 
gramm 

— aus mehreren Einzelprogrammen 
besteht 

— nicht auf Canridge erhaltlich :sr 
(Utility!) 

— nidht mit sich aelbst kopiert wer- 
den kann 

— es nicht fehlerfrei lauft. 
Allerdings hat es bisher noch kei- 

no lOvikurrenz... 

Nun, das Microdrive ist noch ver- 
hi'-iltriiar.'iaBig neu; wie bei allem 
Neuen folgt die Software erst nach 
einiger Zeit. Mein System arbeitet 
gut und mit e 

werden sicher weitere MoglicnVe. 
ten gefunden. Hier sind auch und 
gerade fiir Hobby-Programmierer 
noch viele Mdghchkeiten offen. 

Anpassung von Tasword 

an Microdrfve und 

RS232-Drucker 

Da Tasword ein echtes Arbeils- 
programm ist, das ich aehr oft brau- 
che, wollte ich es naturlich geme auf 
Cartridge speich^'ti 'w.vie an me:- 



90 LET i=NOT Pi: LET b=CODE 
IF b<97 THEN LET b=b+32 



entsprechende Listing. 

Ok Erkliirung dazu: 

In Zeile 10 werden eventuell vor- 
her schon geoffnete Strome ge- 
loscht, die Baudrate eingesetzt 
(19200 geht auch, es muB nur diesel- 
be sein wie beim Drucker) und der 
»b«-Kanal auf S-rom 3 gelegt tfber 



Qer 



Spectrum + 'fcsi:e:ierire-e-rder ma- eigneten Drucker 

chen). Es geht halt .Mles. "Uriel selbst Es ist recht einf; 

so ist der Computer rmmer noch in das Programm i 

schneller als der Mens-;:.. Dins sol: os.stEUJsarick'irr. 

ubrigens nicht heiBen, daB ich et- der Benutzer die 

was gegen Floppys habe! Nur im an seine Gerate a 



; Arbeitsm::tel 



nioureprur.jj-heZeilellenthielt 
eine BEEP-Rouline, die aua Platz- 
griinden entfallt. 

In Zeile 200 habe ich die Steuer- 
zeichen eingefugt, die mein 
Drucker braucht, damit der Formu- 
larvorschub stimmt. Das geht ver- 
mutlich auch anders (im Code), aber 
so war es am einfachsten. Damit 
wird der Drucker jedSS Mai auf das 
rtasword-Format» eingestellt fiir den 
Fall. daB ich zwischendurch etwas 
anderes gcdruckt habe 

In den Zeilen 275 und 285 wirrde 
LPRINT durch PRINT #3; ersetzt 
und aus Platzgriinden IF c<>0 
durch IF c. 

In Zeile 290 wird nach dem Druck 
ein Formularvorachub durchge- 
fuhrt. 

Etwas schwieriger war es schon 
mit meiner Anpassung an das Mi- 
crodrive. Daa verbraucht recht viel 
Platz, weil ich fiir das Speichern von 
Textfiles vorgesehen hatte, zwischen 
Cartridge und Kassette wahlen zu 
kbnnen. Doch der Code beginnt 
schon bei Adresse 32000, Daher ha- 
be ich einige Streichungen und Kiir- 
eungen vorgenommen. Es sind also 
e:n paar Zeiien mehr. 
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180 IF i >MOT PI THEN PRINT AT 
i.3l; FLASH 1 ; CHR* b!: GO TO 500 

190 GO TO 80 

200 PRINT 83;CHRI 27;CHR* 51jCH 
R* 50;CHR* 27}CHR* 67;CHR$ 52;CH 
R* 27JCHRS 785CHR* S: CL5 : 60 S 
LIB 4000: PRINT AT 4,8; "PRINT OPT 
IONS": PRINT " just press ENTER 



90 LET i=NOT Pi: LET b=CODE a 
: IF b<97 THEN LET b=b+32 
1005 PRINT AT 8,0i"Narae?": LET 
=10: LET 10=0: GO SUE 6000 
1010 IF LEN a$>10 THEN LET a.*= 
$1 TO 10) 
1020 IF LEN a$=0 THEN LET a*=" 



021 INPLI 
x$="C" O 



275 LET c=PEEK 62470: IF c THEN 

PRINT »3;CHR¥ c 
280 RANDOMIZE USR 60.038 
265 LET c=PEEK 62471: IF c THEN 

PRINT 835CHR* c 


1022 ERASE "m H il!a*: SAVE *"m"fl 

iaSCODE b_,a: VERIFY *"»" J 1 J a¥COD 
E b,a: GO TO 1040 


1041 PAUSE NOT PI: IF K*="m" OR 

xI="M" THEN GO TO 25 

1050 PRINT AT 12, 0S "Verity " ; a* ; 


700 CLS : LET i=8: ERASE "m" ;li 


"TAS 1" : SAVE *"m" ; 1 i 


"TAS 1 " LIN 


"?": LET i=14: GO SUB 920: IF i= 


E 15 




THEN GO TO 20 


710 ERASE "B* i 1 i "TAS 


2": SAVE * 


1100 CLS : GO SUB 900: VERIFY a$ 


"m" i 1 ; "TAS 2"C0DE 54784,10751 


CODE b,a 


770 PRINT AT 19,0; 




1110 PRINT AT 21,6; "ok": GO TO 2 


780 VERIFY *"m" ;1;"TAS 1": PRIN 


5 


T AT 21,0; "tasword: b 


as ic O.K. ; ' 


2000 CLS : PRINT AT S , ; " Name?" : 


;at 19,0; 




LET J0=NOT Pi: LET i = I6: GO SUB 


790 VERIFY *■*»•} 2 i"T 


AS 2" CODE 5 


6000 


4784,10751: PRINT AT 


21,20; " m/c 


2020 INPUT "Cass/Micro? " ; xS; IF 


act© O.K. " : GO TO 25 




xS="C" OR x*="c" THEN GO TO 20 


Zeile 15 enthalt den geanderten 
.sdebeferil, den Mamen muBte ich 
ebenfalls andern, weil auf Cartridge 

nicht zwei I ilea .< s> ■!: ■■ r N i 

haben diirfen. GOSUB 11 entfallt 
siehe oben). 

Die erste SAVE-Routine begirrnt 
bei Zeile 700: 

ll.-.r I-'IV AQF_RofoVil i.mrrlo ainna. 


Die not wend igen 


2022 PRINT AT 18 , 9; "Cartr idge fe 
rtig?" : PAUSE NOT PI: LET b=FN p 
(62216): LOAD **m" J 1 i atCDDE ( a + b 
) , ( (FN p (62221 ) +22)*64-a) : GO TO 
10 



baul, urn einer Fehlermeldung vor- 
zubeugen. Es kann namiich sehr 
wohl ein nicht vorhandenes File go- 
loscht, nicht aber ein vorhandenes 
ubfirschiii-ibesn werden, 

Das GOSUB 800 ist nattirlich jetzl 
iiberflussig, ebenso wie die Frage 
nacli dem VERIFY und die daraus 
resultierenden Befehle, 

Zeile 900 wurde etwas gekiirzt, 
ebenso wie die Zeilen 1003, 1010, 
1020. Daiurwurde die Zeile 3021 und 
1022 sowie 1041 eingefiigt. NOT PI 
stenl udnger;:; kurz fur 0. 



Die Spe;cherunq von Konstr=nton 
nimmt sehr viel Platz in Anspruch, 
Analogs Anriorjngen wurden ab 
Zeile 2000 eingebaut: 

Die Zeilen 2000 ■j'-.d ?020 mr.d ye 
loscht worded, dafiir ist Zeiio 2D".0 
jeizi Zeile 2000, und Zeile 2020 und 
:■'..■■■■.: 12 *n :den eingefiigt 

Es sollte bei der Arbeit mil Micro- 
dnve beachtet werden, daB kein 

den werden kann. Dafiir ist in dieser 
Version keine Sicherung eingebaut 
worden. 



In Arbei: be : it!d.:ohe Teste oder 
solche, die ich sehr oft brauche, 
spoichcro ich aulCarTr'dge. Sscher- 

schicken (Waiensendung 1 ) auf Kas- 

sette. 

Ich habe versuch:. die Original- 
version nicht allzu sehr zu andem. 
Es sind fiir rmch noch weitere Fein- 
heiten einzubauen, doch das kann 
nur jeder fur sich tun, denn diese 
Feinheiten sind abhangig vom Ver- 
■■;■.■■■= i. id -jr.gszweck, 

(Ei:kfi Ho.scr.er; 
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An einem kleLnev. Beispielpro- 
granim inochte ich hie!' xclgeu 

»S(andard-Fehlern« vermeiden 

Die erste und nicht unbedingt ein- 
fnchste leilauigabe besteht darin, 
moglichst genau und am besten 



So programmiert 

Basic ist derzeit die verbreitetste Computer- 
sprache. Vor allem die leichte Eriernbarkeit 
verleitet viele Hobby-Programmierer dazu, 
»einfach drauflos zu tippenu. Daraus folgt je- 
doch, daK die entstandenen Programme un- 
iibersichtlich und schwer zu korrigieren oder 
zu erweitern sind. 



e Aufgabe 


l°s 


"in" 


d Ner 


S, 




n ge- 


enner 


«!«..-,..(, 


wer 


Briichen: 

an Tfeilaufgaben 


abei 



Das Flufidiagramm 

Dies is! die I lauptarbeit beim Pro- 
gramrnioren.Hierwirdnichtnurder 
Piogrammablauf festgelegl, son- 



Da 






gepLiiitOii .-Jtl-.jk,!:.!!!.' !et:':egen 
konnen, brauchen 'Air em riuBdia- 
gramm(Programmablau[plari,PAP). 
Dazu miissen mi naturlich die m sol- 
bole kennen. 

Dazu gibt es ein paar kleine Re- 
geln. die man beachten sollte: 

Der Verbindungspfeil rniindet im- 
nier von oben in ein Symbol. 
- ■ Die Verwendung von Basic- 
Befehlen im PAP ist zu vermeiden. 
Das erleichtert es andeien, dieses 
Programm fiir ihren Rechner zu ver- 
wenden, weil sie besser versterien 
konnen, was geschehen soil. 
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man richtig 



nabe a„sqepen __? ist i.vock-msfiiq, 

selben Namen ansprechen zu k6n- 
nen. Die Einzelteile der Aufgaben 
legen wir daher in einem Feld ab: 
A$(4**). Dann konnen sie mit einer 
Schleife ausgegeben werden. Die- 
sol be Speicherung bielet sich natur- 
lich darm auch fur die Losung 
(L$(2,**)) und die Eingabe des Be- 



:,'r;;:;V 



*)). 



— - >PRINT< Position festlegen 

— Tastatur abfragen 

— Eingabe in Zeichenketle spei- 

Es muft naturlich eine Abbruchbe- 
ding-jriy fe:;iyt;ieyl werden. 

Bevor Sie jetzt weiterlesen. sollten 
Sie versuchen, die PAP's zu verste- 
hen. Und vielleicht auch zu andern 
bcziehungs'.veisc verbessem, 

Die Arbeit am Computer 



si den Un- 



gramm siehl also ;ei:it £■ 



it dem Plan nach Bild 3 
sind noch nicht alle Probleme klar. 
Aber wir sind trotzdem schon ein 
games Stuck weiter. 

Auf die Entwicklung der "Kleinig- 
keiten« wie GGT, KGV verzichte ich 
hieT. Die Verfahren sind so einiach, 



nHin- 



li.<0 



Ik: hT:>- 



geschieht, auch eine Liste der be- 
nutzten Variablen enthalten, ge- 

trenntnachsolchen. die nur benutzt 
werden und solchen, die verandert 
werden. Eine Auflistung der Schlei- 



r 








i" 




■* 




1 








= 




S 
















Bild 2. Grobet 
Programmablaufp 




i 
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Iti HI isljeEtder g-roBiEigenieinBa- 
me Teller entlialten. Nebenbei; 
werrn hier 1 herauskommi, sind die 
Zahlen teilertremd. Das 1st aber fur 
die ■-■veii.ere Verarbeitung u 



Wenn wir jetzl unterbrochen wer 
den, fallt es spater nicht mehr 
schwer. die ursprtinglichen Gedan- 
kengange nachzuvollziehen. Dop- 
pelf beiegte Variablen, die sehr viol 
Arger machen konnen, kommen nur 
noch selten vor, Vor allern bei kom- 
pfexeren Programmen wird auch 
ein Drucker als niilzlioh empfimden 
werden. darnit das»BIattern« entfallt. 
Es geht aber auch, wenn man die 
entsprechenden Zeilennummen; 
in.;; FljUdicigrfiimri schreibt. 



Nun konnen w. 
cheri, die einlache 
programmieie n : 



einfacheren Teile 
Obwohl auch hier 
nieb stimmte. Den- 



Darnit hat das Programm die noti- 
gen Unterprogramnie, um die Lo- 
sungen errnirieln zu konnen. 

Nun konnen wir uns an das 
jHauptiinterprogramirw ab Zeile 
1000 machen. 



Das Auswahlen der Aufgabe al- 
ias ist fast so lang wie das iibrige 
Programm zusanamen. Fur di ~ 
mittlung der Losung wird das Pro- 
gramm den GGT und das KGV be- 
notigen. Und ewar mehrfach. Also 
legen wir diese beiden Programm- 
teiie als Unterprogramnie feat, ab 
Zeile 3000, damil wir noch Plate ha- 

(Eine kleine Randbemerkung zu 
der verbreiteten Meinung, Unter- 
programme miiBten vorne oder hin- 
ten stehen: in Basic isi es volliq egal, 
wo sic; sich beiinden. Sie werden mit 
Zeilenrrummer angesprochen. Ge- 
naugenommen sind es keine echten 
Unterpro gramme, sondern GOTO's 
mit variabler Riicksprungadresse, 
Derselbe Effekt lieBe sich auch al- 
lein mit GOTO und Kontrolivana- 
bien (Flags) erreichen.} 

Also, wieder zu unserem Pro- 
gramrn: 
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Damit warn das 


Grrihsi 




.'v-naifr. Das Pioera 


mm ist 





cm sole:.- ■ F :■ :v -. ,-geht. Wenn 
wir jetzl r.cch :\-.:i.:h.-p.r einbauen 
mochten, ist das relativ einfach. Bei- 
sptelsweise kdnnte man drei Versu- 
che zulassen, hevor erne Aufgabe 
r~ Is fa] sen se'.vsiiet wild. 

Wir haben damit mcht nur das 
Pioaramrr. siuwirjkeli. iiovdo-r' 
audi schori die halbe Dokumenta- 
tion fertig. 

Ubrigens isl das Programm mcht 
zum Abtippen gedacht, es ist nur eta 
BeispM: 

Das endgiittige Listing 



Sollte der Speicherplatz nicht fiir 
die vielen REM-Zeilen gentigen, so 
soil ten diese aber im PAP notiert 
werden. Dadurch finde! man nach- 
her im Programm eher die Stelle, an 
der etwas zu andern oder verbes- 

Beim Durcharbeiten dieses Arti- 
kels ist vielen sicher aufgefallen, 
da8 die Vorarbeiten a.ut dem Papier 
mehr Zeit in Anspruch nehmen als 
das Programmieren selbst. Daftrr 
entfallt aber hinterher ein Groflteil 
der Tehlersuche. Ein Programm, 
das vollstandig fehlerfrei auf An- 
hieb lauft, ist eine absolute Raritat, 
auch bei erfahreneren Computer- 
freaks. Normalerweise kann der 
Programm lover nichi ununterbro- 
chen bis eum Ende an seinem Pro- 
gramm sitzen. Daher schleichen 
sich ohne diese Vorarbeiten sehr 
vieie iiber fluKi-sige f-'ehler ein. 

(Erika Holscher) 
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lir-Computer sind reichlich 
geschrieben worden. Nur wen'rge sind bemerkenswert. 




tolle fertige Maschinencode-Pro- 
giamrne, die sich leicht an eigene 
Programmierwerke anpassen las- 
sen, ergeben folgendes Urteil: Un- 
'■/c-i^icnibare Fundi] rube. 
ISBN 3-7643-1559-8, Preis 29,80 
Mark, 
Die Auioren Ian Steward und Ro- 



7X Socclrum. i'Qi ZK81 und Jupiter 
Ace« von Owen Bishop. Dieses Ba- 
?:telbuc-! beschieibt Schaltungen, 
die einfach und billig aufzubauen 
sind and den Nutzwert Ihres Com- 
puters beachtlich erweitern. Das an- 
gebotene Bastelprogramm urnfaBt 
unter anderm einen Impuls-Detek- 
tor, einen Bild-Digitahsierer, Modell- 

fehll die nr'-A^r dig,. Software dazu 

Urteil; Empfehlenswert fur Bastler. 
ISBN 3-7643-1589-X, Preis 29,80 
Mark. 

26 Fertigprograrnme und eine gu- 
te Einfuhmng in die Programmie^ 
nmg En den Sie in dem Band »Sin- 
clair ZX Spectrum, Programmiercn 



njor 



rtund 



tes Listing allec Z80-Opcodes ver- 

vollstandigt das Werk. 

Urteil: Unenibejuhch fur Masclii- 

n e nc od e - Cinsteiger. 

ISBN 3-7643-1535-0, Preis 27,80 

Freundedcs/.'Xfil sollliiti sich das 
Buch »Maschinencode und besse- 
resBa.sic«;:ulegeii, welchesauchfiir 
Spectrum-Benutzer einiges bietet, 
Urteil: Gutes Lehr- und Nachschlag- 

ISBN 3-7643-1492-3, Preis 32, Mark. 
Noch mehr aus dem Spectrum 

heiauszuholen, wir.d Ihnen mit Hilie 
des Bandes .Weitere Kniffc und Pro- 



ebeni 



t dem 



Jot 

31-Fat: e;v/a: 



del 
:C1, Pre 



trers 


ai.dhche Einfiihrung isl 




iell auf den ZX81 zuge- 


-ten 


aber auch fur Spectrum- 




senswert. 50 fortigo Pro- 




i;ider.dasi'Lehibuc:i.. ah 



and -eschatiK- s.ch uaiet ar.deveni 
ausfuhrlicri rait dem ROM des Spec- 
trum und seinen nutzbaren Funkho- 
nen. Das Microdnve-Buch 1st fur In- 
terface I-Benutzer ein sehr gutes 
deutschsprachiaes und leicht ver- 
standlich geschriebenes Hand- 
buch. Im zweiten Teil des Werkes 
wird quasi als Dreingabe ein Pro- 
gramm »erweitertes Basic* gelislel 
u;id beschneben. welches das gute 



B fehla 



(Cl! <: 



cht. Fur 



ias Microdxive- 

1 3-923985-04-5.D 

2 Biicher sind bei 
iruck erhaltlich. 
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I in Handbuch findet man ab Seite 
1U9 Angaben zu IN imd OUT. 
Tragi roan die Werte in eine Ta- 
belle ein, so wire! aoloit d<in Systeni 
dor Kodieiung deutlich. Die Adres- 
a AO bis fi.4 



stei 



A7 v 






nBe 



:id;vi ■,-, 



Datenbuslc 
setztes Biiiial niedi 
alio nndereri sind ■>' 
Einen Adrefiwert 
durch Subtraktion des Eitwertes 
vom 16-Bit-Hochstwerl (6RS35). Fur 
den 8-Bit-Datenbus gilt entspre- 
chend der Hochstwert 255. 

Die IN-Funklion zi 



Die OUT-Anweisnng zur Ausgabe 

Ohne Interface kann man eigent- 
lich mit der OUT-Anweisung nicht 
viel anfangen. Zur Steuerung von 
Iii-iutsprecher, Border und Drucker 
hat der Spectrum ja beasere Befeh- 
le. Aber versuchen kann man es ja 

Znm Probieren 

Die Kuizprogrnmme »Border* und 
»Lauisprecher« arbeiten mit der 
O UT-A nv/ei suiq . C in Beispiel fur die 
IN-Funktion ist »Ear-Buchse«. Mit 
Musik lassen sicti Kurven auf den 
Schirm plotten. IMsiurlicliistdaskein 
Pegelmesser, well nur die Dauer 
von »laut« und »leise« fur das Auf und 
Ab vorantwortlich ist. 



Verstandigung 

iiber 
IN und OUT 
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Lists 


dtr 0»r 


s&itn 


a (16) 


- Rdrass 


• Id 


d (8) 


» Datertr 


id 


adr 


- IN-Rdr 


ssa 


aw 






i Rest ft 


rass«art 


b« 


= Bi tuer 




i.n 


a schlei 


■ 




I 



«*» 



und ' 



fide 



!>» 



dt«»»« ' 



tiu»" 
hi" 111 



10 


REM L 


istins 1 




319 


DIM a i 


16) : DIM 


<t IS) 


38 


PRINT 


flT a, 3; 
- und 6a 






Rdress 


tnbi tmustar" 


49 


GO SUB 


0220: REM fldr«SS« 


50 


REM -. 






60 


REM 


Daten 




70 


REM = = 






80 


FOR i » 


TO 1 STEP 


90 


LET dw 


= IN id!" 




209 


LET bin 

PRINT 


■ 12S 




110 


RT 10,20 




130 


PRINT 


'Datan: " 


dw 


130 


PRINT 


AT 12,20 




140 


FOR n» 


8 TO 1 5TEP -1 


1S0 


LET d i 


n) >0 




160 


IF dw J 


= bw THEN 


LET d in) ■! 




LET din 






170 


LET bul 


= bu/2 




160 


PRINT 






180 


NEXT n 






200 
210 

330 
340 


NEXT i 
REM = = 
REM 

REM = = 
LET bur 






fid r esse 




»3£768 




250 


INPUT 


■Rdrassa 




260 


PRINT 


RT 10,0; 


Rdrcssa : "; 


270 


PRINT 






230 


LET aw 


•idr 




290 


FOR n- 


16 TO 1 STEP -1 


300 


LET a ( 


n> -0 




310 


IF am > 


=bw THEN 


LET a (n) =1 




LET am 






320 


LET bul 


= bui/2 




330 


IF n«9 


THEN PRINT " "J 


340 


PRINT 


a (n) ; 




360 


NEXT n 






360 


PRINT 


RT 20,1; 




"Neut fldresi* nach 


BRERK ♦ RUN" 


370 


RETURN 






Lbtin 


g AdreB-L 


nd Dotcnbitm 


star 
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Mehr als ~lextverarbeitun< 



sage des Progiaramschreibers 

j'ncht geloschf word en kann, ohne 
das Programm zu zerstoren. Hier 
wurde ein neuer Schutz erngefuhrt, 
urn das Kopieren zu erschweren. 
Der Vertreiber fiihrt erne Liste iiber 
alie ausgelieferten Programme und 
kann somit leicht den Narnen des 
Kaufers herausftndeti. 

Wird nach dem Laden die Frage 
"Create or edita mit *e« beantwortet, 



Das Textverarbei- 
tungsprogramm 
INES erlaubt vom 

Briefschreiben, 
Andern und Finden 
von Datensatzen bis 
zum automatischen 
Sortieren fast ailes, 

was man sich 
wiinschen konnte. 



verlangt der Computer den File- 
Narnen des zu ladenden Pro- 
gratnms. Man kann hiermit bereits 
besiehende Ines-Programme la- 

Beantwortet man die Frage mit hob, 
was soviel wie kreieren bedeutet. 
wird der Bildschirm schwarz und an 
der linken oberiin F,cko erscheint 
ein weiBer Cursor. Jetzt darauf los- 
schreiben, dachte ich mir, und siehe 
da, es klappte wiiklich. Der einpro- 
grammierte Zeichensatz mit deut- 
schen Umlaulen erlaubl ein Schrei- 
ben von 6*1 Zeichen je Zeile. Etwas 
gewohnungsbediirftig sind die ver- 
schiedenen Zeichen schon: So hatte 
ich Probleme, zwischen N und M zu 
unterscheiden. Angenehm fall! das 
glatte Scrolling am". Die obersie Zei- 
le rutscht automatisch nach oben, 
wobei unten eine Zeile zur weiteren 
Arbeit frei wird. Mochte man den 
geschriebenen Text verbessern 
oder andem, mufi man in den Edi- 
tor-Modus iibergehen, den man 
durch gleichzoiriges Driicken der 
Caps-Shift- und Edit-Taste erreicht. 

jetzt iangt die Sache an, SpaB zu 
machen. Durch Betatigen der Ta- 
sten b, 1, n und e kann im Text belie- 
big geblattert werden. Der Cursor 
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isl frei tiber den gesamlen Bild- 
schinn zu bewegen. Der Anwender 
hat auch noch die Moglichkeit, 
dutch Driicken der l-Taste verschie- 
dene Parameter eu andern; Bild- 
schirm weiB/schwarze Schrift, linke 
mid rechte Druckrandeinstellung; 
Zeilenabstand; Urnschalten auf den 
Epson FX-Drucker urid so weiter. 
Andemngen der Parameter erfol- 
gen mit den Cursortasten 5 bezie- 
iiunijHWeiae 6. 



bieren, urn die l.iOi:;r.Ji!g:;liiliK";l.'ei 
di:;r,cT Rourin!? v.a eriahren, 

Fiir die Drucker RX und FX sine 
die Siwerroulinen iest eingearbei 
lei. Es konnen alls Mcglic : ■, - 1 

Breilsc.hr ifl, komprmuerte Sd.:i:l. 
Fettdruck, verschiedene Schriftar 
ten, und dies alles innerhalb eine: 
HalensaiKes. Fiir den Sinclair ZX 
DrucL-er is: em ekjener Befehl vor 
handen.dcr d-i. \,Ph NTRofohl si 



verlangl. Das Pro- 

mcbi selbsls^=u:end 
Auwender nllo Anga- 
='-r.:v/ortet. iui-ikiot sich 



completed Now LOAD Your Basic 
progiamm and process, it with 
PRINT USR 63801". Das Basic- 
Progiamm wird nun geladen und in- 
nerhalb von Sekunden stent eine 
ferl.ige Basic-lnes-Datei zur Verfu- 
gung. Auch hier gilt: selbst auspro- 
bieren und staunen. 
Das zweite Hilfsprogramm nutzt 



itTas 



dllgi 



aide 



J 



■■i.i.-;-:i:i.ii;.i.j',-:innr.i-;r(:: 



:es eine haibe Seito 
r Vbifiiriiiriq hat. Gel;v 
nit LOAD "Ti". Daslni- 
r'id'i .-driver und wird 
l lenruj bcsc.'anebei;. 



sich Gens to Ines. Wer viel in Ma- 
schinencodes arbeitet und ein 
Freund des Prcgramms Gens von 
Hisoft isl, hat die Moglichkeit, Gens- 
Progiammeineinelnes-Dateiumzu- 
schreiben. Die 64 Zeichen/Zeile 
komraen gut zur Geltnng und bieten 



ipiel d 



iUn 



schrieben wurde. 
ManuskriptgrdBe 
(35 Zeichen/Zeile 
gierabstand), istd 
Ines verlangt zue 
kierungspunkte g 
nur innerhalb die; 
gearbeitet wird. 

Die Bedienung: 
felgreich. Nach z 
kannte ich alle v 
und konnte die / 
legen. Aut eine ', 
ich noch etwas 
namlich auf die Si 

Begrenzer kdnnei 
werden, fiir die rr 
Zeit verwenden 
grEirnm hat eine a 
schinencode-Rout 
tieren von Da.tens 
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scirun>A:iwendei' auf le- 
s kostet 49,90 Mark. Her- 
.1 ist da;; schnelle Arbei- 
:n Befeliien und das um- 
Handbuch. Ein Monitor 
srnpiehlen, da 64 Zeichen 
.Lirid3!.ii!qdes£jLlci:;c-tuinit: 
(Hans Merkl) 



Textverarbeitung 
mitTaswordir 

Mit Tasword II wird fur den Spectrum ein 

wirklich gutes Textverarbeitungsprogramm 

geboten. Ich habe meine Artikel fiir dieses 

Heft damrt erstellt. 
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schrift gedruckt , also nur 32 Zeichen 
je Zeile. Es kdnnen auch zwei »Steu- 
erzeichenii in den Text eingefugt 
werden: > LARGE PRINTIG ON< 
und >LARGE PRINTING OFF<. 
Der ZX-Dmcker schreibt dann dop- 
pelt hoch. 

Es wurde auch beriicksichtigt, 
dafi der Speclrum-Benutzer, der ein 
solches Programm benotigt, wahr- 
scheinhch mit einem Normalpapier- 
Drucker arbeiten mdchte. Die von 



*Einfugungen: 
Bu;;ii;;!~ben (erst em Leeizei 
chen, das dann ube/sdirni 
ben wird) 

- Zeiien 

Ahr;;:hL-:ilie fes v/erden ;cv."c;;ls 
be! Crreichen ernes Zeilonon 
des Leerzeilou o:mefu;Tl. die 
dan:: ubeKCiitie!:«in werdoij) 



— Drucken iiber ZX-Printer 

— Drucken iiber Epson-Drucker 
Defimeren der Steuerzeichen 
fiir den Drucker 

{Nach der Riickkehr aus dem 

I/O-Memi miissen die Render 

neu geseizt werden.) 

Im Programm sind zwei > HELP <- 

Seiten enlhalien. Hie.r wurden je- 

doch die auf der Tastatur-Schablone 

verwandten Kurzzeichen eingenera, 

so daB nur beide zusammen wirk- 

lich liiuziich sind. 

Ubrigens stehen die Umlaute 
mcht auf dieser Schablone. Auf dem 
Bildschirm sind die crrofienundklei- 
nen Umlaute sehr schlecht zu unter- 

Das Programm karm auf den ZX- 
Prinier drucken. Hierbei ist jedoch 
zu beachten, daB die kleine Schrift 
nichlbesondorsguriesbarist. Wenn 
auf VergieBerung geschaltet ist, 
wird auch in der groBen Normal- 



GE-1 

20 print chr$ (pr.nc r>; 

30 NEXT I 



nkai 



Freundin, die auf einem Triumph 
Adler PC mil einem entsprechen- 
den Programm arbeitete, gewann 
ich. Wir schreiben beide im Zehn- 
fmgersystem, und ich benutzte die 
Onainal-Spscrrurr.-Tastatur. Wer zu- 
dem noch iiber einen Normalpa- 
pier-Drucker verftigt. kann seme 
Schreibmaschine verschrolien. Das 
Programm kosii i tl-oi frcfisoitkriaop 
100 Mark, „ ., „., , 

(Enka Holsch* 
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maschinencnde-Hilfe 



Wer die Moglichkert seines Spectrum voll ausnutzen will, wird uber 
kurz oder lang eigene Programme in Maschinensprache schreiben. 
Besonders bei Spielen und bei schneller Grafik besticht die Ge- 
schwindigkert von Maschinencode-Programmen. 



Doch die Eingabe eines solchen 
Pro'iin-mms und insbesondere 
das Austesten erfordem sehr 
vielMane. vvenn man allein mil dem 
Basic-Betnebssystem arbeiten muft 
Ein Assembler, ein Disassembler 
und ein Debugger stellen hier eine 



.. Wir haben 
i gc-nar.nten 
uenlliiilt, fur 



erste Assembler- Pro gram in einge- 
geben. Es kfinnen dabei alle 
ZBC-Mnen ionics benutzt werden, 
v/obei i-illejrdinos cY.e Syniax qerinq- 



me Assembler 



moglich sind. 

Ein fertiges Programm ke 
mit dem »ASS«-Befehl als r 
Maschinencode in den S] 
eingeschrieben werden. Di) 
setzungsgeschwmdiqke": is 
durdiaus akzeptabel und di 
Ens ' i bretesden Fehlerr 



hert werden. So werden 

r-Programme kiirzer und 

:i, ohne dabei ihren Ge- 

iigkeitsvorteil gegeniiber 
n Programmiersprachen zu 



:, daB; 



e:i der 



ines Programms scha 



nes zusammenhangenden Systems 
aus Assembler und Disassembler 
:Si die Mocjliciikeit, direkt aus dem 
Speicher in ein fur den Assembler 



gidBten Vorteile des Programms 


den Befehl »LD HL,BC« 


auf: Es besitzt nicht wie das Sinclair- 


mochte, so defmiert mai 


Basic einen umstandlichen Zeilen- 


fach unter diesem Nam* 




kro aus den beiden Ins 


Bildschirmeditor a la Commodore. 


»LD H.B« und »LD L,C«. 



schnell das fehls 
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Ml* 



!■> IUUIKI! |1M 




| === 






tamm 


m | 




'. s£" * -' : ■•»""" 




Fik <0M3 


fcettst <)«!■ Frt 


<8» 



ind fre 



nAd:ess= 
Jid die Adre 
den alSridiq ;ncisz= 



v:: : eOst 



; Pioqrrim:--! abz-.jspci- Ad lessen, .bea:iin:nlrt Pi>R-;Qit7.ah! 



lich an, hat aber den groBen Vorteil, 
dai J Bedienf elder .so gal wie ausge- 
schlossen sind. Ais Eingabefeider 
stehen zur Verfiigung: 

Name, StraBe, Wohnort, Telefon 
und zwei frei zu belegende Kennzei- 
chenfelder. 

Der jeweilige Status des Pro 



Eine!gcnos(oiTiaoh]ovi"i'----.=; Me- 
nu befafit sich ausschlielilich mit 
dem Sortieren. Es kann nach Na- 
nien, Postleitzahlen und den beiden 
Kenn^eiohen sortiort werden. Das 
ganze File kann dann in Listenform 
au:;gedruckt werden. Dei Soriier- 
vorganq dauert meinei Meinung 



tion, bei der die Rild.^hirmrr.aske 
verlassen wird. Brief und Datei kon- 
nen separat geiaden, gespeicheri 



chernimd Laden der Rostandc ;:eiqr 
einen weiteren Vorteil von Multifile, 
Samtliche Angaben iiber den Bele- 
gungsgrad und die Daternummer 
weiden mit iiberspieU. ohne direkt 



Autor soheint jedccli merits von der 
Emanzipationsbevvegung zu halten. 
denn die Anrede bezieht sich nur 
auf Ilevren. Es kann an einzelne 



Computer verk 
Verwendung mi 
ken wird er sich: 
verringern. Das 
Mark und lauft i 
drive und Diske 
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Heine liebsfen 

_^k^^^ ^r Die gute Grafikauflosung macht's moglich: 

S^ffe^ Der ZX-Spectrum ist ein idealer »Spiel- 

^J gefahrte«, fur den es eine riesige Auswahl 

an Computerspielen gibt. Mrt welchen 

Programmen er am schonsten beept und 

flackert, verraten wir Ihnen in diesem Artikel. 



Die Spieleflut fur den ZX- 
Sr.ieclmni .fcomrni in ers'.er ;_i::ie 
aus den Gefilden von Queen, 
Ale und Bowlerhiilen — England. Zu 
iiberschanen ist das Angebol nicht 
metir, doch hin und wieder gibt es 
auBergewb'tmliche Programme, die 
zu den Klassikem der Software- 
Be ginnen wir gleich mit dem 
ageistreichen* Spiel vergniigen der 
Adventures, Ein echtei ReiBer die- 
ser Kateqone war und isi .The Hob- 
bik em tesseindcs Aberiieuerspiel, 
daasichthcmati!ir.;l[u[jg;:('i'rolkiens trum angesarnmelt, 
nHerr der Rinae« anlehr.: Neben Spielwitz und Abw 
derschonenCrafik best. ctv dan Pro- rum nichts zu wiins 
gramm durch die fur Adventures sen. Zurr.einenpers 
batmbrechende .-Animation*, ten gehort iFred. 

Samtliche Figurei;. die in .The Hob- Mannleirt. das sich c 



Todesmutiger Tiefflieger 



in L; der '.'.'asi Er.tr (eder den: Ioy:r.<--:- 
Interface) wird bei den Geschick- 

lict.lx' its -Spicier ^oiert. Gerade in 
dicscr Keihyjor.u hai s;ch erne rjanze 
Latte von Kassetten fur den Spcc- 



sn, die unsere 
rur allzuschnell ge- 
l. UndvornWasser 



tdie 



s Adve 



!i(jli]ic[-:Cn( : rikluii!veThor und Odin) 
Gefilden. Das Prinzip der »Anirnac- 
tion< wurde bei »Valhalla« drastisch 
weiterentwickelt. Samtliche Perso- 
nen agieren hochst eigenstandig 



baut. Gespenster, Mumien und 

Vampire i^begriffen. 

Wesentlich friedlicher, als der Ti- 
lelesvermutenlaBI, yehl esben.Tor- 
nado Low Level* zu. Obwohl geflc- 
gen wird, ist es weder em SchieS- 
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zusammeln. Ein fesselndes Vergnii- 
gen fur lange Winterabende. Eben- 
so wie das Nachfolge spiel »Jet Set 
Willyii ein Bestseller, der sich ausge- 
sprochener Kauferbeliebtheit er- 



tflttlfc 
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Vo.id Cup Foolball 



Ganz schon sportltch 

Apropos Abwechslung: Wer ver- 
; '-kh.. -■;,., i. / - d g. W i r d bei 



lurieri Mengen. Ein Progra 



Fuflball-S 
kleine Schwa cher 
steuerurig aber 
macht. 
AbschLieBend e 




Leichiathletik-Frei 
Schirmherrschafl 



Anlehnung an den f 
Renner »Hyper Olympic 



Amateur-Ver. 
Saison fur Se 

. : ..;,ir-.- J J,--b' 
sind.Einseh] 
das audi lar 
Strat© 



q die Bundeshga 



mag noc : 
atztei flat; 



»Vv'ij.:l:.i Cup unde 



n Dietrich Weise 
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Flir die meisten Schaltungen. die 
einen Autoslart eriordem, reicht das 
interne RAM mit Sicherheit aus. 
Falls 1 KByte zu wenig sind, kann 
man im Rechner auf 2 KByte erwei- 
tem. Bei besonders groBem Spei- 
cherbedarf kann man im AdreB- 
raum von 32 KByte bis 48 KByte m 
zwei EPROMs (auf einer zusatzli- 
chen Platme) weitere 16 KByte an 
Daten tmterbringen, RAM-Platinen 
kbnnen am Busstecker angesteckt 
werden. 

Der Aufbau: verbliiffend 
einfach 

Die Platine sum Autostait ist laszi- 
nierend. einfach: sie Lragt nur das 
EPROM, den Decoder undzwei wei- 
tere ICs. Das ist wirklich kein Druck- 
fehlerder Autostart wirdtataHdilich 



t. Das 






rund vier Seiten in diesem Heft. 

Leerplatine mit Anleilung 30 Mark 

Ba-jsatz mit Anleitunovbhne EPROM 

45 Mark 

Die EPROMs konnen nach Kunden- 
wunsch piogrammiert werden. 
Hersteller: Decker & Computer, 



eFirm 



'Slunt 



Baclvnan Knut. 
Olbergstr. 3, 
5000 Kom 41 
Benzig, Jorg, 
iluschbergstr. 33, 
7730 VS-Schwenningen 
Bergen, Peter, 
r'.'.ir-.tenstr. 29, 
3200 Hildesheim 
Dietl, Joachim, 
Dammstr. 3. 
7100 Heilbronn 
Eifer: Andreas, 
Biv.r/.enstr. 44, 
7016 Oerlingen 
Friednch, Bemd W., 
h'j'i wi a a burger Sir, 2, 
6500 Mainz 
Gerling, Reiner W., 
H;.;]]~ri:Tasse 16, 
oSSl Heioldsbach 
Herrmann, fosef, 

8415 Nittenau 

Howaidl. Jiirgen, 

ECoj-ier Str. 22, 

3800 Btemen41 

H 61:? cher, Erika, 

h'vr.sr-Ai.:qust-Str. 5, 

2730 Zeven 

Huge], Morbert, 

Auf dem Leimen 4, 

oVIS Griinstadt 

Kastl, Josef, 

Sittling 27, 

8425 Neustadt/Donau 

Kirchner, Eva, 

Ne u en Lamer Str, 8, 

6000 Frankfurt/Main 

La karri per, Rolf, 

Uhuweg 6, 

1830 Giiierstoh 11 

Lenhardt, Heinrich, 

Happy- Computer 

Merkl, Hans, 

Fi anz-Scivabert-Str. 14, 

6742 Herxheim/Pfalz 

Richter, Peter, 

Am Maabishof 22, 

4044 Kaarst 1 
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Das vollelektronische Geschenkpaket 
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til- 







I I 'imcnompufing 
/igni.r.r:'! rn I Spiel- ;md Nm;pi 
HlBnIuriederaianr" 
[lis nodi keineii ( 
nen, rfieser SpaS . 

~ ide1enegcri;lij I. -:t.. ■■(.■■a: 















jlatinnsp (vie FLIGHT rj 
CHEQUERED FLAG . F 
I iAultnetinan). Grei.isn^a w.s SCHAC-I. i| 

■HAiJ.CAHW.Uf. ;-;tVtHSI,Caiwonsi 

I COdKIF iinr: PSSSTund Wellraomabome 
: wia JET PAC. 
Prais liir [CA : D.M 798,- 

ln slant Computing 
■ Pake! B (ICB): 



id Uul. Cumpular-SaitJers. Unsara Maike 
s- !;'i sialiil, rlati m uid Vitrofoncr, «r 
;.:-.ili:ii SnislE ;;iishiill. Dss : nterFa.-R mi" 
j~sur ussan tirrn jijhchl das Spieleri nit 



Instant Computing 
Paket A (ICA): 



HiS-KiRUV XislilasfTfSr. , 



■ P'ssis fis- iCFJ: DM 139B.- 

Instant Computing 
; Paket C (ICC): 

i Inhalfc 5 Computet SlNClAIRuLiHiMclilieE- 
- rich dar Snriwars-Pragramme DATENBANK 

■ TEXMRARBEITONG. FINANZPLANONP. 
und GRAFIK © 



5i.c?ss=iniilnJt:[:li.,i 



■ : :iV 1G98.- 

1 aslant Computing 
Paket D(ICD): 

Inteto 1 Heimcomputet SINCLAIR ZX81 als 

Der SINCLAIR ZXFJJ. seii Jatiren wehweii 

-,: a nrhen Klipn >um IsschesiseU 
Fveis aaW, ist als ZXBl-Bausatz ® die 


DER C.QMPVTES-AvSSTATTm 

COMPUTER ACCESSOIFiES INTL GmbH 
..jpaiwa^ ' j ■ 0012 Onatrrunn 


Der Instant 
Action Coupon 


:li, I ■. ■■ 
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Instant Computing 
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Paket E (ICE): 


S"^"" 8 




InTsfc 1 ISS OATENRECORDER 0. 
DetlSS DATENRECORDER ©. aina Neuheit 
die mi iniiuier:Ti;gijnijuf den Marti komml 


ixsw** 






SEE^ST*™ 








SSSSHP** 




ijpl A n n o ii ni iihtmeii. ua dan Uniting ir-i 
dan- [: urn ■-.^1 erleidiletn. 


||p»~H= 


Instant (.(imputing 


A i 


PakelF(ICF): 


«"- 




Inhah, 1 Joystick QUICK SHOT mkldsive 




ln-B.-lui:s it,il2 Anschliissen ©. 

Dei Jdfslick ist tier Stent: (imppal ■ ■ dei 


•*""*» 


■tmaaatom. 
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SINCLAIR spricht DEUTSCH 

mit Ihnen 




